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Chapter  1 

INTRODUCTION 


Radar  cross  section  (RCS)  prediction  is  currently  an  active  research  area  [1-31]. 
It  has  been  known  for  nearly  100  years  that  objects  reflect  radio  waves.  But  with  the 
increasing  use  of  radar  since  World  War  II,  the  determination  of  the  electromagnetic 
scattering  from  an  object  illuminated  by  an  incident  plane  wave  has  generated  great 
practical  and  academic  interest.  References  [l]  through  [123]  are  a  small  survey  of  the 
current  literature  addressing  this  research  topic,  and  these  references  demonstrate  the 
ongoing  investigations  into  electromagnetic  scattering. 

The  ultimate  objective  in  this  research  area  is  to  develop  a  general  electromag¬ 
netic  wave  scattering  model  for  arbitrary  targets.  These  arbitrary  targets  could  be 
perfect  conductors  or  penetrable  bodies.  They  could  also  be  perfect  conductors  coated 
with  dielectric  and/or  magnetic  materials.  Further,  they  could  have  any  geometric 
shape.  As  Knott  [33]  and  Senior  [25]  point  out  in  their  respective  surveys  of  RCS  pre¬ 
diction  techniques,  electromagnetic  scattering  problems  fall  naturally  into  three  cate¬ 
gories  according  to  body  size:  the  low-frequency,  resonant,  and  high-frequency  regions. 
These  regions  do  not  refer  to  the  actual  frequency  used,  but  to  the  size  of  the  target 
with  respect  to  wavelength.  When  the  object  is  much  smaller  than  the  wavelength,  all 


parts  of  the  body  axe  strongly  coupled  to  each  other.  The  electromagnetic  scattering 
depends  only  slightly  on  shape  and  varies  with  the  fourth  power  of  the  frequency  [33]. 
Shape  details  are  too  small  to  resolve  because  the  wavelength  is  too  long.  When  objects 
are  between  approximately  one  and  ten  wavelengths  in  size,  they  lie  in  the  resonance 


region.  All  parts  of  the  body  interact  with  each  other.  Finally,  a  target  larger  than 
approximately  ten  wavelengths  is  in  the  optical  region.  The  scattering  mechanisms 
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are  highly  localized,  and  the  various  target  elements  typically  act  independently  of  one 
another  except  for  the  shadowing  of  one  element  by  another. 

1.2  Theoretical  Approaches 

Several  approaches  to  the  prediction  of  electromagnetic  scattering  are  apparent 
from  the  literature.  The  approach  taken  depends  on  the  target  size  with  respect  to 
wavelength,  as  discussed  in  the  previous  paragraph.  The  high  frequency  techniques  are 
the  asymptotic  theories  of  geometrical  optics  (GO)  [32,33,75,76]  and  physical  optics 
(PO)  [33-36,75,76].  To  compensate  for  deficiencies  in  the  GO  theory,  an  extension  has 
been  developed  by  Keller  known  as  the  geometric  theory  of  diffraction  (GTD)  [33,37- 
46,75,76].  Similarly,  Ufimtsev  developed  an  extension  for  physical  optics  known  as  the 
physical  theory  of  diffraction  (PTD)  [33,41,45,47,48,75,76].  These  will  be  discussed  in 
more  detail  below.  The  low  frequency  techniques  are  the  numerical  theories  of  the 
method  of  moments  (MOM)  [33,60-110]  and  the  finite  element  method  [17].  The  num¬ 
ber  of  unknown  surface  current  coefficients  limits  the  size  of  target  which  can  be  handled 
due  to  computer  storage  and  processing  limitations.  As  computer  storage  and  process¬ 
ing  capabilities  continue  to  expand  in  the  future,  the  upper  frequency  at  which  these 
numerical  techniques  can  be  used  will  increase  proportionately.  Additionally,  hybrid 
methods  [75,76,89-98]  have  been  devised  which  merge  GTD  and  MOM  [75,76,89-92,94] 
or  PTD  and  MOM  [75,76,93].  These  approaches  are  designed  to  use  each  technique  on 
the  respective  regions  of  a  target  where  that  particular  technique  has  its  best  predictive 
capability. 

1.3  Geometrical  Optics 

For  the  calculation  of  electromagnetic  scattering  at  high  frequencies  (where  the 
dimensions  of  the  target  are  large  with  respect  to  wavelength)  the  asymptotic  theories 
have  been  developed.  The  oldest  and  most  familiar  theory  is  geometrical  optics  (GO) 
which  is  also  known  as  ray  tracing  [32,33,75,76].  The  basic  assumption  of  GO  is  that 
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energy  propagates  along  slender  tubes  (rays).  Since  the  field  components  are  transverse 
to  the  direction  of  propagation,  GO  solutions  are  not  valid  near  discontinuities  such 
as  edges.  Implicit  in  this  method  is  the  need  to  find  the  specular  point  on  the  body 
where  the  reflection  occurs,  for  it  is  the  principal  radii  there  that  govern  the  spreading 
of  the  rays  away  from  the  body.  If  this  point  is  too  close  to  an  edg^,  the  assumed  field 
structure  no  longer  satisfies  the  assumptions  of  the  method.  One  failure  of  GO  is  that 
it  predicts  an  infinite  RCS  for  a  flat  or  singly  curved  surface  where  one  or  both  radii 
of  curvature  is  infinite.  This  failure  can  be  overcome  by  the  theory  of  physical  optics. 

1.4  Physical  Optics 

Physical  optics  (PO)  [33-36,75,76]  uses  a  GO  approximation  of  the  fields  induced 
on  a  body  surface  and  integrates  the  induced  fields  to  obtain  the  scattered  field.  The 
induced  surface  fields  can  be  approximated  for  nonconducting  as  well  as  conducting 
surfaces.  If  the  scattering  direction  varies  too  much  from  the  specular  direction,  PO 
fails  by  wider  margins  to  yield  the  correct  scattering  behavior.  Further,  the  integrals 
of  PO  can  be  evaluated  exactly  for  only  a  few  cases  that  include  flat  plates,  cylinders, 
and  spherical  caps  viewed  at  axial  incidence.  Targets  can  be  modelled  as  a  grouping 
of  structural  features  for  which  PO  solutions  exist.  Thus,  PO  is  restricted  to  the  high 
frequency  region  where  interactions  between  major  structural  features  of  the  target  are 
minimal. 

1.5  Geometrical  Theory  of  Diffraction 

As  mentioned  previously,  the  geometrical  theory  of  diffraction  (GTD)  [33,37- 
46,75,76]  and  the  physical  theory  of  diffraction  (PTD)  [33,41,45,47,48,75,76]  were  de¬ 
veloped  by  Keller  and  Ufimtsev,  respectively,  as  extensions  to  GO  and  PO.  Unlike  GO, 
in  which  the  specular  direction  is  unique,  GTD  permits  diffracted  rays  to  lie  along  any 
of  the  generators  of  a  forward  cone  whose  apex  lies  at  the  local  point  of  edge  diffraction. 
The  GTD  estimates  of  the  field  at  a  point  on  a  diffracted  ray  depend  on  the  distance 
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from  the  edge  and  upon  the  local  angles  of  arrival  and  departure.  Using  this  approach, 
GTD  compensates  for  edge  diffraction  whereas  GO  cannot.  As  in  GO,  one  need  only 
sum  all  the  rays  reaching  the  point  of  observation. 

Since  GTD  is  a  ray  tracing  technique  it  suffers  from  a  serious  drawback.  At  the 
transitions  between  the  shadow  regions  and  the  illuminated  regions  the  GTD  approx¬ 
imations  produce  singularities.  The  uniform  theory  of  diffraction  (UTD)  [49-51]  and 
the  uniform  asymptotic  theory  of  diffraction  (UAT)  [50,52-59]  are  current  attempts  to 
compensate  for  this  error.  The  uniform  theories  overcome  the  transition  region  sin¬ 
gularities  at  reflection  and  shadow  boundaries.  However,  at  points  where  an  infinite 
number  of  rays  converge  (caustics)  all  of  these  high  frequency  techniques  predict  infi¬ 
nite  fields.  Further,  none  of  the  high  frequency  techniques  can  account  for  the  surface 
traveling  wave  phenomenon.  This  is  because  these  methods  treat  localized  scattering 
phenomena,  while  the  surface  traveling  wave  involves  the  entire  surface. 

1.6  Physical  Theory  of  Diffraction 

Analogous  to  the  relation  between  GTD  and  GO  is  the  relation  between  the 
physical  theory  of  diffraction  (PTD)  and  PO.  Ufimtsev  recognized  that  the  PO  theory 
was  inadequate  in  many  instances,  particularly  when  the  scattering  direction  is  far 
from  the  specular  direction  [33].  He  postulated  the  existence  of  a  “nonuniform”  (edge) 
current  in  addition  to  the  “uniform”  (physical  optics)  surface  current.  This  edge  current 
is  designed  to  compensate  for  the  departure  of  the  target  structure  from  the  assumptions 
implicit  in  the  PO  theory.  Such  departures  include  shadow  boundaries  and  geometrical 
discontinuities  such  as  edges.  PTD  attempts  to  modify  PO  when  there  are  surface 
discontinuities  where  diffraction  becomes  important. 

1.7  Method  of  Moments  and  Finite  Element  Method 

For  the  calculation  of  electromagnetic  scattering  at  low  frequencies  or  the  res¬ 
onance  region  (where  the  dimensions  of  the  target  are  on  the  order  of  a  wavelength) 
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the  numerical  theories  of  the  method  of  moments  (MOM)  [33,60-110]  and  the  finite  el¬ 
ement  method  [17]  have  been  developed.  The  MOM  basically  solves  the  integral  form 
of  Maxwell’s  equations  numerically  for  the  surface  currents  induced  on  a  scatterer  by 
an  incident  plane  wave.  The  finite  element  method  numerically  solves  the  differential 
form  of  Maxwell’s  equations  throughout  the  region  of  interest.  For  both  methods  the 
number  of  unknowns  to  be  calculated  limits  the  size  of  the  target  which  can  be  handled 
due  to  computer  storage  and  processing  limitations.  Hence,  their  designation  as  low 
frequency  techniques.  For  more  detail  on  the  MOM  approach  see  the  next  section. 

This  thesis  is  an  application  of  the  MOM  numerical  technique  to  an  arbitrary 
target  as  defined  above.  Rao,  Wilton,  and  Glisson  [81]  have  used  this  approach  for 
perfectly  conducting  targets  with  arbitrary  geometries.  They  used  triangular  patches 
to  construct  arbitrary  targets.  They  then  defined  a  set  of  basis  functions  [64,81]  which, 
when  combined  with  triangular  patch  modelling,  greatly  simplify  the  equations  for  the 
electric  surface  currents. 

Medgyesi-Mitschang,  et  al  [71,73]  have  applied  the  MOM  to  coated  perfectly 
conducting  and  penetrable  targets.  However,  the  targets  must  be  bodies  of  revolu¬ 
tion  (BOR)  and  cannot  have  arbitrary  geometries.  Using  only  BORs  provides  a  great 
simplification  in  the  equations  and  computations  for  the  surface  currents  due  to  the 
symmetry  of  the  target. 

This  thesis  is  an  attempt  to  lay  the  theoretical  foundation  for  the  prediction  of 
the  radar  cross  section  of  coated  perfect  conductors  with  arbitrary  geometries.  Chapter 
2  briefly  discusses  the  method  of  moments  and  its  application  to  coated  targets  with 
arbitrary  geometries.  Chapter  3  provides  the  problem  formulation  and  the  method  of 
solution.  A  description  of  the  experimental  RCS  measurements  is  contained  in  Chapter 
4.  Chapter  5  presents  the  results  of  the  experimental  RCS  measurements  and  the 
theoretical  RCS  predictions.  A  comparison  of  the  experimental  RCS  measurements  and 
the  theoretical  RCS  predictions  is  also  contained  in  this  chapter.  Chapter  6  outlines  the 
generalization  to  multi-layered  coatings  of  the  approach  used  in  this  thesis  to  compute 
the  RCS  for  a  single  layer  of  coating.  Finally,  Chapter  7  contains  the  conclusions  and 
suggested  future  efforts. 
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Chapter  2 


METHOD  OF  MOMENTS 


2.1  Introduction 


The  method  of  moments  (MOM)  approach  has  the  advantage  that  the  governing 
integro-differential  equations  to  which  the  MOM  is  applied  are  exact  solutions  to  the 
electromagnetic  scattering  problem.  The  interactions  of  all  the  structural  elements  of 
the  target  are  accounted  for.  Further,  since  the  MOM  solves  for  the  induced  surface 
currents  explicitly,  the  MOM  has  application  to  near-field  (electromagnetic  compata- 
bility)  as  well  as  far-field  (RCS)  phenomena.  Disadvantages  include  the  large  number 
of  unknowns  to  be  calculated  (n)  for  most  practical  problems  and  the  inversion  of  an 
n  x  n  matrix.  Alternatively,  the  n  equations  in  n  unknowns  may  be  solved  iteratively 
[28,60,85]. 

The  integral  equation  formulation  for  electromagnetic  scattering  from  a  target 
(Huygens’  Principle)  is  exact.  The  MOM  reduces  these  integro-differential  equations 
to  a  matrix  equation  by  dividing  the  target  surface  into  subdomains.  The  matrix 
equation  represents  each  subdomain’s  interaction  with  every  other  subdomain.  The 
solution  (surface  currents  and  charges)  can  be  found  by  inverting  the  interaction  matrix 
and  multiplying  it  by  the  column  vector  that  is  related  to  the  incident  field  at  each 
surface  element.  The  scattered  field  is  then  computed  by  summing  the  surface  current 
and  charge  distributions  in  a  radiation  integral.  Typically,  the  integral  is  for  the  far- 
field  scattering  (RCS),  but  the  field  at  an  arbitrary  point  in  space  can  be  calculated 
(electromagnetic  compatability,  near-field  RCS,  etc.).  This  feature  makes  the  MOM  a 
very  powerful  tool  with  which  to  conduct  detailed  investigations  of  scattering  behavior, 
and  the  MOM  can  provide  insights  into  the  most  critical  target  element  interactions 
that  should  be  accounted  for  in  the  high  frequency  techniques  discussed  previously. 
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2.2  Variations  and  Alternatives 


Several  variations  and  alternatives  in  the  MOM  axe  apparent  in  the  literature. 
Various  approaches  to  surface  modeling  of  the  target  have  been  suggested  (99-110], 
and  each  has  applications  to  recommend  its  use.  Two  of  the  more  popular  methods  of 
surface  modeling  are  the  wire  grid  [82,100,103]  and  the  surface  patch  [81]  models.  The 
target  is  represented  aa  a  mesh  of  wire  grids  or  a  patchwork  quilt  of  surface  patches. 
Their  popularity  stems  from  the  complexity  of  the  targets  that  can  be  constructed 
from  these  subdomains.  If  the  MOM  is  applied  to  the  expression  for  the  electric  field 
in  Huygens’  principle,  the  method  is  known  as  the  electric  field  integral  equation  (EFIE) 
formulation.  If  the  MOM  is  applied  to  the  corresponding  magnetic  field  expression  in 
Huygens’  principle,  the  method  is  called  the  magnetic  field  integral  equation  (MFIE) 
formulation.  The  EFIE  formulation  [69-73,75,76,78,81,88]  can  be  used  for  open  and 
closed  surfaces.  The  MFIE  formulation  [69-73,75,76,78,81,88]  can  be  used  only  for 
closed  surfaces.  However,  the  EFIE  and  MFIE  will  give  erroneous  results  near  the 
internal  resonance  frequency  of  a  closed  structure  using  the  MOM  [69-73,81,88].  The 
combined  field  integral  equation  (CFIE)  [69-73,75,76,78,81,88]  is  a  linear  combination 
of  the  EFIE  and  MFIE  which  gives  valid  results  near  the  internal  resonance  frequency 
[19,58,67].  Another  variation  in  the  MOM  is  the  merger  of  the  MOM  with  GTD  and 
PTD  high  frequency  techniques,  as  described  in  the  previous  chapter  [75,76,89-98], 

To  predict  the  electromagnetic  scattering  from  treated  perfectly  conducting  tar¬ 
gets  the  approximate  boundary  condition  (ABC)  approach  has  been  developed  for  use 
with  the  MOM.  A  coated  target  is  one  which  has  a  dielectric/magnetic  coating.  Spe¬ 
cific  research  areas  within  the  ABC  numerical  theory  are  the  impedance  boundary 
condition  (IBC)  [111,115,117-122],  the  resistive  boundary  condition  (RBC)  [120-123], 
and  its  analog  the  magnetic  boundary  condition  (MBC)  [117-122].  In  each  of  these 
approaches  the  coating  is  approximated  by  modeling  the  perfect  conductor  as  an  equiv¬ 
alent  impedance/resistance. 
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2.3  Coated  Target  With  Arbitrary  Geometry 

This  thesis  is  an  application  of  the  MOM  numerical  technique  to  a  coated  target 
with  arbitrary  geometry  as  defined  in  Chapter  1.  Rao,  Wilton,  and  Glisson  [81]  have 
used  this  approach  for  perfectly  conducting  targets  with  arbitrary  geometries.  They 
used  triangular  patches  to  construct  arbitrary  targets.  They  then  defined  a  set  of 
basis  functions  [64,81]  which,  when  combined  with  triangular  patch  modelling,  greatly 
simplify  the  equations  for  the  electric  surface  currents. 

Medgyesi-Mitschang,  et  al  [71,73]  have  applied  the  MOM  to  coated  perfectly 
conducting  and  penetrable  targets.  However,  the  targets  must  be  bodies  of  revolu¬ 
tion  (BOR)  and  cannot  have  arbitrary  geometries.  Using  only  BORs  provides  a  great 
simplification  in  the  equations  and  computations  for  the  surface  currents  due  to  the 
symmetry  of  the  target. 

Applying  the  MOM  to  a  three-dimensional  coated  target  will  produce  three 
times  the  number  of  unknowns  to  be  calculated  as  compared  to  a  perfectly  conducting 
target.  For  a  perfectly  conducting  target  the  electric  surface  current  density  is  required 
to  calculate  the  electromagnetic  scattering.  In  the  MOM,  this  electric  surface  cur¬ 
rent  density  is  represented  by  the  n  basis  functions  over  the  n  subdomains  (triangular 
patches).  For  a  coated  target  (perfect  conductor)  the  electric  and  magnetic  surface  cur¬ 
rent  densities  over  the  outermost  surface  are  required  to  calculate  the  electromagnetic 
scattering.  To  calculate  these  current  densities,  the  electric  surface  current  density 
on  the  perfect  conductor  is  also  required  (magnetic  current  density  equals  zero  on  the 
perfect  conductor).  In  the  MOM,  each  of  these  three  current  densities  is  represented  by 
n  basis  functions  over  the  subdomains.  Thus,  there  will  be  three  times  the  number  of 
unknowns  to  be  calculated  as  compared  to  a  perfectly  conducting  target.  This  increase 
in  the  number  of  unknowns  inherently  reduces  the  upper  frequency  or  size  of  target 
for  which  the  electromagnetic  scattering  can  be  calculated  (as  compared  to  a  perfectly 
conducting  target)  due  to  the  computer  limiteitions  discussed  previously. 
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PROBLEM  FORMULATION  AND  METHOD  OF  SOLUTION 

i 

3.1  Introduction  ! 

I 

f 

This  thesis  problem  involves  calculating  the  electromagnetic  scattering  (radar  ! 

cross  section)  from  a  coated  perfect  conductor  with  arbitrary  geometry.  Figure  3.1 
illustrates  the  problem.  An  assumed  plane  wave  is  incident  on  the  target.  Equiva¬ 
lent  electric  and  magnetic  surface  currents  (J i  and  Mi,  respectively,  in  Figure  3.1)  on 
the  outer  surface  of  the  target  are  calculated  using  the  method  of  moments.  These 
calculated  equivalent  surface  currents  are  then  used  to  compute  the  scattered  electro¬ 
magnetic  field  and,  ultimately,  the  monostatic  radar  cross  section  (RCS)  of  the  coated 
target.  Figures  3.1  and  3.2  illustrate  the  problem  for  a  completely  coated  perfect  con¬ 
ductor,  and  Figure  3.3  is  an  illustration  of  the  problem  for  a  partially  coated  perfect 
conductor.  For  the  partially  coated  perfect  conductor,  equivalent  electric  and  magnetic 
surface  currents  (Ji  and  Mi,  respectively,  in  Figure  3.3)  on  the  outer  surface  of  the 
coating  and  an  equivalent  electric  surface  current  ( Ji  in  Figure  3.3)  on  the  outer  surface 
of  the  exposed  perfect  conductor  are  calculated  using  the  method  of  moments.  Again, 
these  calculated  equivalent  surface  currents  are  then  used  to  compute  the  monostatic 
RCS  of  the  partially  coated  target.  A  detailed  derivation  of  the  governing  equations 
for  both  of  these  cases  is  provided  in  Appendix  A. 

Throughout  this  thesis  only  the  monostatic  RCS  will  be  computed  and  discussed. 

However,  the  bistatic  RCS  could  have  been  calculated  just  as  readily.  One  of  the 
elegances  of  the  method  of  moments  lies  in  the  fact  that  once  the  equivalent  electric  and 
magnetic  surface  currents  have  been  calculated,  all  desired  electromagnetic  scattering 
phenomena  can  be  computed.  This  includes  near-field  as  well  as  far-field  scattering. 

For  the  completely  coated  perfect  conductor  shown  in  Figure  3.1,  the  target  con- 
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sists  of  an  inner  core  and  an  outer  core,  each  of  which  can  be  of  arbitrary  geometrical 
shape.  The  inner  core  of  the  target  is  assumed  to  be  a  perfectly  conducting  surface. 
Surrounding  this  inner  core  is  a  coating  which  completely  encloses  the  perfect  conduc¬ 
tor.  The  coating  can  have  a  complex  permittivity,  e,  and/or  a  complex  permeability, 
p.  The  complex  permittivity  and  permeability  correspond  to  dielectric  and  magnetic 
materials,  respectively,  with  loss. 

For  the  partially  coated  perfect  conductor  shown  in  Figure  3.3,  the  target  con¬ 
sists  of  a  perfectly  conducting  object  of  arbitrary  geometrical  shape  which  is  partially 
coated  by  a  material  of  arbitrary  geometrical  shape.  Again,  this  material  can  have  a 
complex  permittivity,  e,  and/or  a  complex  permeability,  p. 

The  remaining  sections  of  this  chapter  discuss  in  greater  detail  the  formulation  of 
the  problem  and  the  method  chosen  to  calculate  the  RCS  for  coated  perfect  conductors 
with  arbitrary  geometries. 

3.2  The  Approach 

The  approach  to  the  solution  of  this  problem  is  one  of  using  the  equivalence 
principle  to  replace  the  target  with  an  equivalent  set  of  electric  and  magnetic  surface 
currents.  The  equivalent  problem  to  the  target  illustrated  in  Figure  3.1  is  shown  in 
Figure  3.2.  The  region  inside  the  coating  is  replaced  with  the  equivalent  electric  surface 
current,  J\,  and  the  equivalent  magnetic  surface  current,  Mi,  as  shown  in  the  left  half 
|  of  Figure  3.2.  The  electric  and  magnetic  fields  inside  the  coating  axe  now  in  the  region 

of  no  interest  and  are,  therefore,  assumed  to  be  identically  zero.  Since  the  fields  in  the 
region  of  no  interest  axe  zero,  the  permittivity  and  permeability  are  assumed  to  be  that 
j  of  the  surrounding  free  space,  which  results  in  an  homogeneous,  unbounded  medium. 

The  right  half  of  Figure  3.2  demonstrates  the  remainder  of  the  equivalence  prin- 
|  ciple.  The  region  outside  the  coating  is  replaced  by  the  equivalent  electric  surface 

f 

j  current,  J[,  and  the  equivalent  magnetic  surface  current,  M{.  The  perfect  conductor  is 

’  replaced  by  an  equivalent  electric  surface  current,  Ji-  No  equivalent  magnetic  surface 

'  current  is  required  at  the  surface  of  the  perfect  conductor  since  the  boundary  condi- 
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tion  at  the  surface  of  the  perfect  conductor  requires  the  tangential  electric  field,  and 
hence  the  equivalent  magnetic  surface  current,  to  equal  zero.  Now  the  region  of  no 
interest  becomes  the  volume  outside  the  surface  of  the  coating  and  inside  the  surface 
of  the  perfect  conductor.  As  before,  the  electric  and  magnetic  fields  in  the  region  of 
no  interest  are  assumed  to  be  zero,  and,  therefore,  the  permittivity  and  permeability 
of  the  region  of  no  interest  are  assumed  to  be  that  of  the  coating.  This  again  results 
in  an  unbounded  homogeneous  medium. 

The  next  step  is  to  satisfy  the  boundary  conditions.  At  the  surface  of  the 
coating,  the  tangential  electric  field  is  continuous  and  the  tangential  magnetic  field  is 
continuous.  At  the  surface  of  the  perfect  conductor,  the  tangential  electric  field  is  zero 
and  the  tangential  magnetic  field  is  equal  to  the  induced  electric  surface  current,  J2. 
Now,  the  total  fields  outside  the  coating  equal  the  incident  fields  plus  the  scattered 
fields.  The  scattered  fields  can  be  expressed  in  terms  of  J\  and  M\  using  Huygens’ 
principle  [128]: 


E.{f)  =  f  •  [ft  x  iT(f')]  +  V  x  G(f,0  •  [ft  x  £(0)}  (3-1) 

and 

Ha{f)  =  j  dS' •  [ft  x  E[f)\  +  V  x  •  [ft  x  ff(f')]}  (3.2) 

where  [ft  x  ■ff(r')]  =  J  and  [ft  x  E(f,)\  =  —M.  The  above  expressions  are  the  dyadic 
formulation  of  Huygens’  principle,  and  G  is  the  dyadic  Green’s  function  which  is  defined 
in  Appendix  A.  S'  is  the  surface  of  the  scatterer.  Further,  the  fields  inside  the  coating 
can  be  expressed  in  terms  of  J[,  M[,  and  using  Huygens’  principle.  Satisfying 
the  boundary  conditions  yields  a  set  of  integro-differential  equations  (see  Appendix 
A)  in  terms  of  the  incident  electric  and  magnetic  fields  and  the  unknown  electric  and 
magnetic  surface  currents. 

The  method  of  moments  is  now  applied  to  the  set  of  integro-differential  equations 
which  express  the  boundary  conditions.  This  results  in  a  matrix  equation  of  the  form 
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V  =  Z  •  7.  For  more  detail,  see  Appendix  A.  V  represents  the  incident  electric  and 
magnetic  field  excitation  vector  at  the  boundary  surfaces.  I  represents  the  unknown 
electric  and  magnetic  surface  current  coefficients.  Z  represents  the  interaction  matrix 
for  all  the  triangular  patches  used  to  model  the  surfaces  (see  Section  3.3).  The  unknown 
surface  current  coefficients,  I,  can  now  be  obtained  by  inverting  the  Z-matrix  and 
multiplying  the  excitation  vector,  V,  by  this  inverted  Z-matrix,  Z  :  I  =  Z  •  V. 

Once  the  unknown  surface  current  coefficients  axe  computed,  it  is  desired  to 
compute  the  scattered  electric  field,  Ea,  and,  ultimately,  the  monostatic  RCS,  o.  The 
surface  current  coefficients  are  used  with  the  appropriate  basis  functions  and  substi¬ 
tuted  into  Huygens’  principle  to  compute  the  scattered  electric  field.  For  the  completely 
coated  perfect  conductor,  only  the  surface  current  coefficients  for  the  coating  axe  re¬ 
quired  to  compute  the  scattered  electric  field.  The  target  has  now  been  replaced  with 
an  equivalent  set  of  electric  and  magnetic  surface  currents  as  shown  in  the  left  side  of 
Figure  3.2.  The  far-field  approximation  to  Huygens’  principle  is  made: 

Ea(f)  =  iupo{0{Rie  +  R24)  +  Hri+  ~  R 20)}  M 

where 


[  dS[  J1(f/)e-^o  f'  (3.4) 

4?r r  7  s; 

and 

—  f  dS[M (3.5) 
y  po  47tr  7  s; 

in  the  radiation  zone.  After  the  scattered  electric  field  is  computed  in  the  backscatter 
direction,  the  monostatic  RCS,  a,  is  calculated  using  the  following  formula: 


o  =  lim  47rr2 

r— ♦  00 


Es 

E\nc 


2 


(3.6) 


Finally,  the  monostatic  RCS  in  decibels  referenced  to  1  square  meter  (aBsm)  is  com¬ 
puted  as 
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tfdBsm  =  10  log10 


(3.7) 


To  handle  the  case  of  a  partially  coated  perfect  conductor,  the  only  modification 
to  the  approach  outlined  above  which  is  required  is  to  replace  the  target  with  three 
equivalent  surface  currents  instead  of  the  two  used  previously.  The  coated  portion  of  the 
target  is  replaced  with  an  equivalent  set  of  electric  and  magnetic  surface  currents,  (J\ 
and  M\,  respectively,  over  surface  S i  in  Figure  3.3),  and  the  exposed  perfect  conductor 
is  replaced  with  an  equivalent  electric  surface  current,  (Ji  over  surface  Si  in  Figure 
3.3).  The  scattered  field  then  becomes 


Ea{f)  =  iupo{6{Rze  +  R44,)  +  <j>(Rz<t>  —  -#40)}  (3-8) 

where 

Rz  *  ^r[jsi  dS[J1(f')c-ik°r'+Jsi  dS^Ji{f')e-ik°y  |  (3.9) 

and 

f  (3.10) 

V  Mo  4?rr  Js/ 

in  the  radiation  zone.  The  monostatic  RCS  is  then  computed  using  equations  (3.6)  and 
(3.7),  as  before. 


3.3  Surface  Modeling 


To  model  the  arbitrary  geometry  of  the  surfaces  of  the  coating  and  perfect  con- 
j  ductor,  the  triangular  patch  model  of  Rao,  Wilton,  and  Glisson  [81]  is  used.  The 

motivation  and  justification  for  this  triangular  patch  model  is  provided  in  Reference 
[81].  For  the  purposes  of  this  thesis,  the  motivation  for  using  triangular  patch  mod¬ 
eling  is  that  almost  any  arbitrary  geometry  (singly  and  doubly-curved  surfaces)  can 
be  modelled  using  triangular  subdomains.  Figure  3.4  displays  a  cylinder  modelled  us- 
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;  ing  triangular  subdomains.  Further,  various  coatings  or  an  homogenous  coating  with 
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variable  thickness  over  the  surface  of  the  perfect  conductor  can  be  modelled  with  the 
appropriate  triangularly  patched  surfaces.  Thus,  this  triangular  patch  modelling  in 
conjunction  wiih  the  basis  function  over  the  bi-triangular  subdomain  used  by  Rao, 
Wilton,  and  Glisson  [81],  the  method  of  moments,  the  equivalence  principle,  Huy¬ 
gens’  principle,  and  the  appropriate  boundary  conditions  permit  the  RCS  prediction 
for  coated  perfect  conductors  with  arbitrary  geometries.  The  bi-triangular  subdomain 
of  the  basis  function  is  shown  in  Figure  3.5,  and  more  detail  on  the  basis  function  is 
contained  in  Appendix  A. 

3.4  Computer  Programs 

A  flowchart  of  the  computer  programs  written  to  implement  the  procedures 
described  in  Section  3.2  is  presented  in  Appendix  B.  It  is  not  a  flowchart  of  the  individ¬ 
ual  computer  programs,  but  a  flowchart  to  show  the  progression  through  the  electric 
field  integral  equation  (EFIE)  series  of  computer  programs  used  to  calculate  the  de¬ 
sired  far-field  RCS  patterns.  Appendix  B  also  contains  a  brief  description  of  the  EFIE 
programs. 

Program  EFIEl  translates  condensed,  user-supplied  geometry  specifications  into 
EFIE  usable  data.  This  program  automatically  breaks  the  described  surface  into  trian¬ 
gular  patches  (see  Figure  3.4)  and  does  the  bookkeeping  for  such  items  as  coordinates 
of  nodes,  which  nodes  form  which  edges,  which  edges  form  which  triangular  faces,  etc. 
All  of  this  information  is  then  placed  into  the  output  file  labelled  STORAGE.DAT. 
The  EFIE  series  of  computer  programs  assume  an  excitation  frequency  of  300  mega¬ 
hertz,  which  gives  a  free  space  wavelength  of  one  meter.  Thus,  all  target  geometry 
specifications  are  normalized  to  wavelength. 

Program  EFIE2C  calculates  the  symmetric  Z-matrix  for  the  completely  coated 
perfect  conductor.  The  inputs  to  this  program  are  the  STORAGE.DAT  file  generated 
by  EFIEl  for  the  perfect  conductor,  and  the  CSTORAGE.DAT  file  (renamed  from 
STORAGE.DAT)  generated  by  EFIEl  for  the  coating.  The  output  of  EFIE2C  is  a 
file  labelled  RESMAT.DAT  which  contains  the  Z-matrix.  This  Z-matrix  is  discussed 
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in  detail  in  Appendix  A.  Since  the  Z-matrix  is  symmetric  and,  therefore,  equal  to  its 
transpose,  only  half  the  Z-matrix  is  stored  in  RESMAT.DAT. 

Program  EFIE2PC  calculates  the  symmetric  Z-matrix  for  the  partially  coated 
perfect  conductor.  The  inputs  to  this  program  axe  the  STORAGE.DAT  file  generated 
by  EFIE1  for  the  coated  portion  of  the  perfect  conductor,  the  KSTORAGE.DAT  file 
(renamed  from  STORAGE.DAT)  generated  by  EFIEl  for  the  exposed  portion  of  the 
perfect  conductor,  and  the  CSTORAGE.DAT  file  (renamed  from  STORAGE.DAT) 
generated  by  EFIEl  for  the  coating.  The  output  of  EFIE2C  is  a  file  labelled  RES¬ 
MAT.DAT  which  contains  the  Z-matrix.  This  Z-matrix  is  discussed  in  detail  in  Ap¬ 
pendix  A.  Since  the  Z-matrix  is  symmetric  and,  therefore,  equal  to  its  transpose,  only 
half  the  Z-matrix  is  stored  in  RESMAT.DAT. 

Program  EFIE3  inverts  the  symmetric  Z-matrix  stored  in  RESMAT.DAT.  The 

Z-matrix  is  inverted  by  the  technique  of  border  inversion.  The  input  to  EFIE3  is  the 

=-i 

RESMAT.DAT  file.  The  output  of  EFIE3  is  the  inverted  Z-matrix,  Z  ,  which  is 
placed  into  the  RESMAT.DAT  file. 

Program  EFIE5BC  computes  the  scattered  electromagnetic  field,  E„,  far-field 
radiation  pattern  from  the  equivalent  electric,  J\ ,  and  magnetic,  M\,  surface  current 
distributions  of  the  completely  coated  perfect  conductor.  A  plane  wave  is  assumed 
to  excite  the  target,  and  the  equivalent  surface  currents  axe  computed  by  multiplying 
the  excitation  vector  by  the  inverted  Z-matrix.  Then,  the  scattered  electric  field  is 
calculated  only  in  the  backscatter  direction  for  the  desired,  user-specified  angles  us¬ 
ing  equations  3.3  through  3.5.  The  inputs  to  EFIE5BC  are  the  inverted  Z-matrix, 
RESMAT.DAT,  and  the  coating  geometry  data,  CSTORAGE.DAT.  The  output  file, 
SPATTERN.DAT,  contains  the  far-field  radiation  pattern  versus  the  desired  angles. 

Program  EFIE5PC  computes  the  scattered  electromagnetic  field,  Ea,  far-field 
radiation  pattern  from  the  equivalent  electric,  J\  and  J 2,  and  magnetic,  Mi,  surface 
current  distributions  of  the  partially  coated  perfect  conductor.  A  plane  wave  is  assumed 
to  excite  the  target,  and  the  equivalent  surface  currents  are  computed  by  multiplying 
the  excitation  vector  by  the  inverted  Z-matrix.  Then,  the  scattered  electric  field  is 
calculated  only  in  the  backscatter  direction  for  the  desired,  user-specified  angles  us- 
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ing  equations  3.8  through  3.10.  The  inputs  to  EFIE5PC  are  the  inverted  Z-matrix, 
RESMAT.DAT,  the  coating  geometry  data,  CSTORAGE.DAT,  and  the  exposed  per¬ 
fect  conductor  geometry  data,  KSTORAGE.DAT.  The  output  file,  SPATTERN.DAT, 
contains  the  far-field  radiation  pattern  versus  the  desired  angles. 

Program  EFIE5R  calculates  the  far-field  RCS  pattern  from  the  scattered  electric 
field  pattern.  Equations  3.6  and  3.7  are  used  to  compute  the  monostatic  RCS,  o,  for 
each  user-specified  angle.  The  input  to  EFIE5R  is  the  file  RPATTERN.DAT  (renamed 
from  SPATTERN.DAT).  This  program  is  interactive,  and  the  output  is  available  in  a 
variety  of  forms.  The  RCS  plots  versus  desired  angle  can  be  displayed  on  a  graphics 
terminal  or  written  into  the  file  HDCOPY.PLT  for  printing.  Further,  the  file  DPAT- 
TERN.DAT  is  created  which  contains  the  RCS  data  versus  angle. 

Program  EFIE5V  presents  the  geometry  information  in  user  viewable  form.  This 
is  an  interactive  program  which  will  display  the  geometry  created  on  a  graphics  terminal 
or  write  geometry  information  into  the  file  HDCOPY.PLT  for  printing.  The  input  is  a 
file  called  RESULT.DAT  (renamed  or  copied  STORAGE.DAT,  KSTORAGE.DAT,  or 
CSTORAGE.DAT  file).  Figure  3.4  was  generated  using  this  program. 

The  author  wrote  the  EFIE2C  and  EFIE2PC  programs  described  above,  and 
modified  EFIE5B  (provided  by  Group  44  at  MIT  Lincoln  Laboratory)  to  produce  the 
EFIE5BC  and  EFIE5PC  programs.  Additionally,  the  author  modified  versions  of  the 
EFIE5R  and  EFIE5V  programs  to  produce  the  outputs  described.  The  remainder 
of  the  programs  were  generously  provided  for  the  author’s  use  by  the  MIT  Lincoln 
Laboratory. 

3.5  Numerical  Integration  Over  Triangular  Subdomains 

To  calculate  the  elements  of  the  interaction  matrix,  Z,  an  integration  of  sev¬ 
eral  types  of  functions  over  each  triangular  patch  is  required  as  shown  in  Appendix  A, 
equations  A. 106  through  A.114  and  A.201  through  A.216.  Since  the  basis  functions 
used  only  exist  over  the  bi-triangular  subdomains,  the  integration  of  these  functions  is 
performed  over  each  subdomain.  The  integration  of  these  functions  over  the  triangular 
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patches  is  accomplished  numerically  using  a  quadrature  technique  for  surface  integra¬ 
tion  over  a  triangular  surface.  Three  types  of  numerical  integrations  are  required: 


and 


c»fcoJR^ 

4irflS 


eikoRm 
Alt  Rrri 


(3.11) 


(3.12) 


and 


/  dr'ji*  x  (f^=  -  f/)(  1  -  ik0R±)—£—.  (3.13) 

JT t  (12m)3 

Appendix  C  discusses  the  seven-point  numerical  integrations  used  to  compute 
the  integrals  shown  in  3.11,  3.12,  and  3.13.  Each  of  these  integrals  has  a  singular¬ 
ity  which  must  be  considered  when  the  source  triangle  and  the  observation  trian- 
gle  are  the  same  triangular  patch,  m  —  n.  The  integration  of  fT±  df*p *  —  ±- -  and 
f~±  dr1  *-  ”  *”  are  accomplished  in  subroutine  NINT7  of  FORTRAN  program  EFIE2PC 

x  x 

accomplished  in  subroutine  NINT7A  of  EFIE2PC.  The  seven-point  numerical  inte¬ 
gration  scheme  used  is  discussed  in  Chapter  3  of  Kiang’s  thesis  [124],  and  will  not 
be  repeated  here.  Further,  Kiang’s  thesis  discusses  the  effects  of  various  triangular 
patch  shapes  on  the  computation  of  the  scattering  from  perfect  conductors.  The 
integration  of  /T±  df'p^  x  -  f')(l  -  ik^R^)  is  accomplished  in  subrou- 

tine  NINT7B  of  FORTRAN  program  EFIE2PC  (Appendix  D),  and  the  integration 
of  j"T±  df*p±  x  { f —  ff)(  1  —  ikiR^Y Jrrr  is  accomplished  in  subroutine  NINT7C 
of  EFIE2PC.  The  seven-point  numerical  integration  over  the  triangular  patches  is  an 
adaptation  of  the  numerical  quadrature  technique  discussed  in  reference  [125].  The 
values  used  in  the  quadrature  integration  can  also  be  found  in  Abramowitz  and  Stegun 
[126]  on  page  893. 
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listed  in  Appendix  D,  and  the  integration  of  fT±  df'p *  *  3.  ”  and 
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Chapter  4 


EXPERIMENT 


4.1  Introduction 


Experimental  data  were  collected  at  the  MIT  Lincoln  Laboratory  Group  95 
Radar  Cross  Section  (RCS)  Measurement  Facility.  RCS  data  were  collected  from  square 
aluminum  plates,  some  coated  with  radar  absorbing  material  and  some  without.  Sec¬ 
tion  4.2  presents  a  brief  description  of  the  RCS  Measurement  Facility,  and  section  4.3 
describes  the  data  which  were  collected. 

4.2  Radar  Cross  Section  Measurement  Facility 

A  block  diagram  of  the  MIT  Lincoln  Laboratory  Group  95  RCS  Measurement 
Facility  apparatus  used  to  collect  the  RCS  data  presented  in  this  thesis  is  shown  in 
Figure  4.1.  The  operating  frequency  of  this  radar  is  approximately  2.5  gigahertz  (GHz) 
to  8.0  GHz.  As  shown  in  the  block  diagram,  this  is  a  pulsed  radar  system.  The 
transmitted  pulse  is  approximately  20  nanoseconds  in  duration,  and  the  received  pulse 
is  approximately  40  nanoseconds  in  duration.  The  pulse  repetition  frequency  of  the 
radar  is  seven  megahertz.  The  received  pulses  are  averaged  for  40  milliseconds.  The 
quoted  noise  threshold  for  this  radar  is  -60dBsm. 

A  block  diagram  of  the  RCS  data  collection  process  is  shown  in  Figure  4.2.  A 
styrofoam  mount  is  used  to  hold  the  target  in  the  desired  position.  With  the  styro¬ 
foam  mount  in  position  and  no  target  on  the  mount,  a  background  measurement  is 
performed.  The  styrofoam  mount  can  be  rotated  azimuthally  360  degrees  in  one-half 
degree  increments,  if  desired.  An  RCS  measurement  of  the  background  is  taken  at  the 
desired  angle  increments.  This  background  measurement  is  subtracted  from  all  succes- 
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sive  measurements  to  arrive  at  the  measured  RCS  of  the  target.  Next,  a  calibration 
sphere  is  placed  on  the  styrofoam  mount.  RCS  measurements  are  performed  at  the  de¬ 
sired  angle  increments  to  verify  the  calibration  of  the  radar  system.  Now,  the  desired 
target  is  placed  into  the  radar  chamber.  It  is  positioned  on  the  styrofoam  mount  so 
the  desired  cut  will  be  obtained  as  the  styrofoam  mount  is  rotated  azimuthally.  Again, 
RCS  measurements  are  taken  at  the  desired  angle  increments.  Finally,  the  calibration 
process  is  repeated  to  verify  the  radar  system  performance. 

4.3  Data  Collection 

As  mentioned  in  the  introduction,  RCS  data  were  collected  from  square  alu¬ 
minum  plates,  some  coated  with  radar  absorbing  material  and  some  without.  Those 
plates  coated  with  radar  absorbing  material  were  only  coated  on  one  side  (partially 
coated  perfect  conductors).  The  plates  were  mounted  on  styrofoam.  The  styrofoam 
mount  was  then  rotated  azimuthally  360  degrees  in  one  degree  increments,  and  the  RCS 
measurements  were  obtained  at  each  of  these  angles.  Table  4.1  lists  the  data  collected, 
and  the  RCS  plots  corresponding  to  this  table  can  be  found  in  Appendix  E. 

RCS  data  were  collected  from  square  aluminum  plates  which  were  32  mils  (0.032 
inches  =  0.8128  mm)  thick.  See  Table  4.1.  Two  sizes  of  aluminum  plates  were  used. 
The  first  size  was  10  cm  by  10  cm  which  is  one  wavelength  by  one  wavelength  at 
a  frequency  of  3.0  GHz.  The  second  size  plate  was  15  cm  by  15  cm  which  is  three 
wavelengths  by  three  wavelengths  at  6.0  GHz.  RCS  data  were  collected  at  3.0  GHz 
and  at  6.0  GHz.  Two  different  polarizations  of  RCS  data  are  shown  in  Table  4.1 
and  Appendix  E:  horizontally  transmitted  and  horizontally  received  RCS  data;  and 
vertically  transmitted  and  vertically  received  RCS  data.  The  horizontally  transmitted 
and  horizontally  received  RCS  data  corresponds  to  the  VV  entries  in  Table  4.1  and  the 
SIGMA- VV  versus  angle  RCS  plots  in  Appendix  E.  This  is  because  the  aluminum  plate 
was  chosen  as  the  reference,  and  the  aluminum  plate  was  mounted  in  a  vertical  position 
on  the  styrofoam  mount.  The  styrofoam  mount  was  then  rotated  azimuthally  for  the 
RCS  measurements.  Therefore,  W  corresponds  to  a  vertically  polarized  electric  field 
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for  the  incident  wave  and  a  vertically  polarized  electric  field  for  the  scattered  wave  with 
respect  to  the  edge  of  the  plate.  Similarly,  the  vertically  transmitted  and  vertically 
received  RCS  data  corresponds  to  the  HH  entries  in  Table  4.1  and  the  SIGMA-HH 
versus  angle  RCS  plots  in  Appendix  E.  Therefore,  HH  corresponds  to  a  horizontally 
polarized  electric  field  for  the  incident  wave  and  a  horizontally  polarized  electric  field  for 
the  scattered  wave  with  respect  to  the  edge  of  the  plate.  There  is  no  cross-polarization 
return  for  the  RCS  pattern  cuts  measured  due  to  symmetry. 

Three  different  radar  absorbing  materials  were  used  to  coat  the  square  aluminum 
plates:  Eccosorb  FDS,  Eccosorb  SF  6.0,  and  Eccosorb  FGM  40  (Eccosorb  is  a  registered 
trademark  of  the  Emerson  and  Cuming  Division  of  the  W.  R.  Grace  and  Co.).  The 
three  types  of  coating,  along  with  some  of  the  specifications  for  each  as  provided  by  the 
manufacturer,  are  shown  in  Table  4.2.  Eccosorb  FDS  is  a  silicone  rubber  based  material 
which  was  purchased  in  one  foot  by  one  foot  sheets.  More  information  on  Eccosorb 
FDS  may  be  found  in  Table  4.3  and  Technical  Bulletin  2-22A  and  Folder  819-91  from 
the  manufacturer.  The  information  in  Table  4.3  was  taken  from  this  technical  bulletin. 
Eccosorb  SF  6.0  is  also  a  silicone  rubber  based  material  which  was  also  purchased  in  one 
foot  by  one  foot  sheets.  It  is  cut  for  a  resonance  frequency  of  6.0  GHz.  More  information 
on  Eccosorb  SF  6.0  may  be  found  in  Technical  Bulletin  8-2-18  from  the  manufacturer. 
Finally,  Eccosorb  FGM  40  is  a  ferrite  loaded  silicone  based  rubber  material  which 
was  purchased  in  one  foot  by  one  foot  sheets.  More  information  on  Eccosorb  FGM 
40  may  be  found  in  Technical  Bulletin  8-2-23  from  the  manufacturer.  Specifications 
comparable  to  those  listed  in  Table  4.3  for  Eccosorb  FDS  were  not  available  in  the 
respective  technical  bulletins  for  Eccosorb  SF  6.0  and  Eccosorb  FGM  40. 

The  radar  absorbing  materials  used  were  chosen  for  the  frequency  at  which  the 
RCS  data  were  collected.  Since  the  method  of  moments  is  a  relatively  low  frequency 
technique  (dimensions  of  the  object  relatively  small  or  comparable  to  the  wavelength 
of  interest),  a  compromise  was  made  between  the  size  of  the  aluminum  plates  used,  the 
frequency  of  the  RCS  measurements,  and  the  type  of  radar  absorbing  materials  used 
to  coat  the  aluminum  plates.  Table  4.1  represents  the  results  of  the  compromise. 
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Coatings  used  were  Eccosorb  radar  absorbing  material 
Square  plate  targets  were  mounted  on  styrofoam 
/  =  radar  frequency  in  gigahertz  (GHz) 

RCS  measurements  taken  in  1°  increments 

Radar  pulses  averaged  for  40  milliseconds 

Radar  pulse  repetition  frequency  (PRF)  =  7  megahertz 

Radar  pulse  width:  XMIT-20  nanoseconds,  RCVR-40  nanoseconds 


Plate  Size 

Coating 

/  (GHz) 

Polarization 

10cm  x  10cm 

None 

3.0 

hh 

10cm  x  10cm 

None 

3.0 

w 

10cm  x  10cm 

FDS 

3.0 

hh 

10cm  x  10cm 

FDS 

3.0 

w 

10cm  x  10cm 

SF  6.0 

3.0 

hh 

10cm  x  10cm 

SF  6.0 

3.0 

w 

10cm  x  10cm 

FGM  40 

3.0 

hh 

10cm  x  10cm 

FGM  40 

3.0 

vv 

15cm  x  15cm 

None 

3.0 

hh 

15cm  x  15cm 

None 

3.0 

w 

15cm  x  15cm 

FDS 

3.0 

hh 

15cm  x  15cm 

FDS 

3.0 

vv 

15cm  x  15cm 

SF  6.0 

3.0 

hh 

15cm  x  15cm 

SF  6.0 

3.0 

vv 

15cm  x  15cm 

FGM  40 

3.0 

hh 

15cm  x  15cm 

FGM  40 

3.0 

vv 

Table  4.1.  Experimental  Radar  Cross  Section  Measurements 
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Coatings  used  were  Eccosorb  radar  absorbing  material 
Square  plate  targets  were  mounted  on  styrofoam 
/  =  radar  frequency  in  gigahertz  (GHz) 

RCS  measurements  taken  in  1°  increments 

Radar  pulses  averaged  for  40  milliseconds 

Radar  pulse  repetition  frequency  (PRF)  =  7  megahertz 

Radar  pulse  width:  XMIT-20  nanoseconds,  RCVR-40  nanoseconds 


Plate  Size 

i 

Coating 

/  (GHz) 

Polarization 

10cm  x  10cm 

None 

6.0 

hh 

10cm  x  10cm 

None 

6.0 

vv 

10cm  x  10cm 

FDS 

6.0 

hh 

10cm  x  10cm 

FDS 

6.0 

w 

10cm  x  10cm 

SF  6.0 

6.0 

hh 

10cm  x  10cm 

SF  6.0 

6.0 

vv 

10cm  x  10cm 

FGM  40 

6.0 

hh 

10cm  x  10cm 

FGM  40 

6.0 

vv 

15cm  x  15cm 

None 

6.0 

hh 

15cm  x  15cm 

None 

6.0 

vv 

15cm  x  15cm 

FDS 

6.0 

hh 

15cm  x  15cm 

FDS 

6.0 

vv 

15cm  x  15cm 

SF  6.0 

6.0 

hh 

15cm  x  15cm 

SF  6.0 

6.0 

w 

15cm  x  15cm 

FGM  40 

6.0 

hh 

15cm  x  15cm 

FGM  40 

6.0 

vv 

Table  4.1  (cont.).  Experimental  Radar  Cross  Section  Measurements 
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Eccosorb  radar  absorbing  material  purchased  from  W.  R.  Grace  Co. 
Specifications  quoted  from  literature  supplied  by  manufacturer 
A  =  thickness  in  millimeters 
Weight  is  in  (kg/m2) 

Loss  =  dB/cm  at  normal  incidence  (0inc  =  0°  ) 

9\nc  =  0°  /  =  3.0  GHz 


Eccosorb 

A  (mm) 

Color 

Weight 

Loss  (dB/cm) 

FDS 

0.762 

Black 

2.0 

-8.6 

SF  6.0 

2.1844 

Gray 

7.8 

-5.0 

FGM  40 

1.016 

Gray 

4.9 

-5.0 

Table  4.2.  Eccosorb  Radar  Absorbing  Material  Specifications 


Dielectric  Properties 

/  =  1.2  GHz 

/  =  3.0  GHz 

/  =  8.6  GHz 

Dielectric  Constant 

13 

8.9 

7.4 

0.15 

0.07 

0.15 

Magnetic  Permeability 

2.3 

1.7 

1.4 

Magnetic  Loss  Tangent 

0.41 

0.80 

0.48 

Attenuation  (dB/cm) 

3 

9 

16 

Relative  Impedance  Z/Zq 

0.4 

0.5 

- - 

0.5 

Table  4.3.  Eccosorb  FDS  Manufacturer  Specifications 


Synthetic  Wideband  RCS  Pulse  System 
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Chapter  5 


EXPERIMENTAL  AND  THEORETICAL  RESULTS 


5.1  Introduction 


This  chapter  contains  a  discussion  of  the  radar  cross  section  (RCS)  data  gen¬ 
erated  at  the  MIT  Lincoln  Laboratory  Group  95  RCS  Measurement  Facility  and  by 
the  EFIE  series  of  computer  programs.  Section  5.2  describes  the  experimental  RCS 
data  collected  at  the  MIT  Lincoln  Laboratory  Group  95  RCS  Measurement  Facility 
as  discussed  in  Chapter  4.  Section  5.3  describes  the  theoretical  RCS  data  generated 
by  the  EFIE  series  of  computer  programs  discussed  in  Chapter  3.  Finally,  section  5.4 
contains  a  comparison  of  the  experimental  results  and  the  theoretical  results.  All  the 
RCS  plots  contained  in  this  thesis  are  for  either  partially  coated  or  uncoated  square 
aluminum  plates.  Appendix  E  contains  copies  of  all  the  RCS  plots  discussed  in  this 
thesis. 

5.2  Experimental  Radar  Cross  Section  Data 

The  experimental  RCS  measurements  taken  at  the  MIT  Lincoln  Laboratory 
Group  95  RCS  Measurement  Facility  are  discussed  in  Chapter  4.  Table  4.1  in  Chapter 
4  provides  a  list  of  the  RCS  measurements  taken,  and  Appendix  E  contains  copies 
of  each  of  the  RCS  plots  generated  from  the  measured  data.  Table  5.1  snmma.ri7.ps 
these  experimental  RCS  plots.  As  discussed  in  Chapter  4,  the  RCS  measurements 
were  ail  performed  on  square  aluminum  plates.  Some  of  the  RCS  measurements  were 
taken  on  uncoated  plates,  and  some  of  the  RCS  measurements  were  taken  on  plates 
which  were  coated  on  only  one  side  with  an  appropriate  layer  of  the  Eccosorb  radar 
absorbing  material  corresponding  to  the  entries  in  Table  4.1.  The  RCS  was  measured 
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360  degrees  around  each  plate  at  one  degree  increments.  As  mentioned  in  Chapter  4, 
the  aluminum  plates  were  mounted  vertically  on  a  styrofoam  mount  which  was  then 
rotated  azimuthally  in  one  degree  increments  for  the  RCS  measurements. 

Figures  E.l  through  E.16  in  Appendix  E  are  the  experimental  RCS  plots  corre¬ 
sponding  to  the  entries  in  Table  4.1.  These  plots  are  summarized  in  Table  5.1.  Two 
orthogonal  polarizations  are  displayed  in  the  same  figure.  The  Ohh  polarization  is  on 
the  top  of  each  figure,  and  the  ovv  polarization  is  on  the  bottom  of  each  figure.  These 
polarizations  are  explained  in  the  next  paragraph.  Table  5.1  also  lists  the  value  of 
the  RCS  at  normal  incidence  to  the  coated  side  of  the  plate  ( 9  =  0°)  for  the  Ohh 
polarization. 

All  the  experimental  RCS  plots  in  Appendix  E  display  the  RCS  in  decibels 
referenced  to  one  square  meter  (dBsm)  on  the  Y-axis  versus  angle  on  the  X-axis.  The 
frequency  of  the  RCS  measurement  is  also  annotated  along  the  Y-axis  of  each  RCS 
plot.  The  Ohh  versus  angle  RCS  plots  in  Appendix  E  correspond  to  a  horizontally 
polarized  electric  field  for  the  incident  wave  and  a  horizontally  polarized  electric  field 
for  the  scattered  wave  with  respect  to  the  edge  of  the  plate.  Similarly,  the  ovv  versus 
angle  RCS  plots  in  Appendix  E  correspond  to  a  vertically  polarized  electric  field  for 
the  incident  wave  and  a  vertically  polarized  electric  field  for  the  scattered  wave  with 
respect  to  the  edge  of  the  plate.  The  angle  measurement  on  the  X-axis  is  in  degrees. 

The  angle  displayed  on  the  X-axis  in  the  RCS  plots  of  Appendix  E  is  theta  (0) 
in  the  spherical  coordinate  system.  This  follows  naturally  since  the  aluminum  plates 
were  mounted  vertically  on  the  styrofoam  mount  which  was  then  rotated  azimuthally. 
If  the  plane  of  the  plate  is  considered  the  X-Y  plane,  then  the  normal  to  this  plane  is 
the  Z-axis.  Theta  (5)  in  the  spherical  coordinate  system  is  measured  with  respect  to 
the  Z-axis.  Thus,  the  amount  of  rotation  of  the  styrofoam  mount  corresponds  to  the 
angle  9  in  spherical  coordinates.  Assuming  the  edges  of  the  plate  are  parallel  to  the 
imaginary  X-axis  and  Y-axis,  the  cut  obtained  is  for  <j>  =  0°  as  the  mount  rotates.  If 
the  plate  is  coated  on  one  side,  the  angle  0  =  0°  on  the  RCS  plot  corresponds  to  normal 
incidence  on  the  side  of  the  plate  with  the  coating.  The  angles  9  =  ±180°  on  the  RCS 
plot  correspond  to  normal  incidence  on  the  uncoated  side  of  the  plate. 
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To  determine  how  much  the  Eccosorb  radar  absorbing  material  has  decreased 
the  RCS  at  normal  incidence,  compare  the  Ohh  entry  in  Table  5.1  for  the  plate  with 
no  coating  to  the  corresponding  entry  for  the  plate  with  the  coating  of  interest.  For 
example,  Table  5.1  shows  the  Ohh  for  the  10cm  by  10cm  uncoated  plate  at  3.0  GHz  is 
-9.7  dBsm,  the  first  entry  in  Table  5.1.  Compare  this  to  the  Ohh  value  of  -13.3  dBsm 
for  the  FGM  40  coated  square  aluminum  plate  at  3.0  GHz,  the  fourth  entry  in  Table 
5.1.  The  Eccosorb  FGM  40  radar  absorbing  material  decreased  the  RCS  at  normal 
incidence  by  -3.6  dB  at  3.0  GHz  for  the  Ohh  polarization. 

For  the  three  different  types  of  Eccosorb  radar  absorbing  material  measured, 
Table  5.1  shows  the  Eccosorb  FGM  40  provided  the  largest  RCS  reduction  at  normal 
incidence  to  the  square  aluminum  plate  at  a  frequency  of  3.0  GHz  for  the  Ohh  polariza¬ 
tion.  This  is  not  true  at  a  radar  frequency  of  6.0  GHz.  The  Eccosorb  SF  6.0  provides 
the  largest  RCS  reduction  at  normal  incidence  to  the  plate  at  6.0  GHz.  The  Eccosorb 
SF  6.0  is  tuned  to  a  resonance  frequency  of  6.0  GHz,  and  it  would  be  expected  to  pro¬ 
vide  the  largest  RCS  reduction  at  normal  incidence  at  this  frequency  if  the  properties 
of  the  radar  absorbing  materials  are  comparable.  Table  5.1  further  shows  the  Eccosorb 
FDS  provided  the  smallest  RCS  reduction  of  all  three  radar  absorbing  materials  at 
normal  incidence  to  the  plate  at  3.0  GHz  and  6.0  GHz  for  the  Ohh  polarization.  This 
reduction  was  approximately  -1  dB  for  both  plate  sizes  and  both  frequencies  listed  in 
Table  5.1.  This  is  consistent  with  the  manufacturer’s  claim  that  Eccosorb  FDS  was 
more  effective  for  surface  wave  effects  than  for  specular  reduction. 

By  overlaying  enlarged  versions  of  Figures  E.2,  E.6,  E.10,  and  E.14  onto  Figures 
E.l,  E.5,  E.9,  and  E.13,  respectively,  the  radar  absorbing  properties  of  the  Eccosorb 
FDS  material  become  more  apparent.  This  technique  was  used  to  generate  Figures 

5.1  and  5.2.  Figure  5.1  is  a  composite  of  the  a  ah  curves  of  Figures  E.l  and  E.2,  and 
Figure  5.2  is  a  composite  of  the  <7hh  curves  of  Figures  E.9  and  E.10.  Figures  5.1  and 

5.2  show  that  indeed  the  Eccosorb  FDS  radar  absorbing  material  is  more  effective  for 
surface  wave  effects  than  for  specular  reduction.  For  example,  this  phenomenom  is 
demonstrated  by  the  fact  that  for  the  angles  between  0°  and  ±90°,  not  inclusive,  on 
Figures  5.1,  5.2,  E.2,  E.6,  E.10,  and  E.14  the  amount  of  RCS  reduction  is  greater  than 
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the  RCS  reduction  at  0°  on  these  figures.  Again,  the  RCS  reduction  is  determined  by 
comparison  with  the  appropriate  uncoated  case. 

At  the  angles  near  ±90°  for  the  Ohh  plots  in  all  the  figures  for  the  coated 
plates,  the  RCS  is  actually  larger  than  the  RCS  for  the  corresponding  uncoated  plates 
at  the  same  angles.  Figures  5.1  and  5.2  explicitly  display  this  phenomenom.  The 
finite  thickness  of  the  coating  and  the  reflection  coefficient  of  the  coating  might  be 
contributing  factors  to  this  effect.  For  these  specific  angles,  the  RCS  measurements 
are  being  made  at  the  edges  of  the  plates.  Since  the  edges  of  the  coated  plates  are  not 
covered  with  radar  absorbing  material,  the  exposed  edges  of  the  coated  plates  reflect 
radar  energy  in  the  same  manner  as  the  edges  of  the  uncoated  plates.  However,  there 
is  the  additional  reflection  of  radar  energy  from  the  coating/free  space  interface  due 
to  the  impedance  mismatch  at  this  boundary.  This  may  account  for  the  increase  in 
RCS  at  these  angles  for  the  coated  plates  compared  to  the  RCS  at  these  angles  for  the 
uncoated  plates. 

At  the  angles  near  ±90°  for  the  ovv  plots  in  all  the  figures  for  the  coated  plates, 
the  null  in  the  RCS  plot  is  shifted  several  degrees  from  the  null  in  the  RCS  plot  for 
the  the  corresponding  uncoated  plates  at  the  same  angles.  The  finite  thickness  of  the 
coating  and  the  reflection  coefficient  of  the  coating  might  also  be  contributing  factors 
to  this  effect.  For  these  specific  angles,  the  RCS  measurements  axe  being  made  at  the 
edges  of  the  plates.  Since  the  coating  has  a  finite  thickness  at  the  edges,  the  edges  of  the 
coated  plates  reflect  more  radar  energy  than  the  edges  of  the  uncoated  plates.  Further, 
the  reflection  coefficient  of  the  coating  varies  with  the  angle.  This  may  account  for  the 
shift  in  the  null  of  the  RCS  plot  at  these  angles  for  the  coated  plates  compared  to  the 
null  in  the  RCS  plot  at  these  angles  for  the  uncoated  plates. 

5.3  Theoretical  Radar  Cross  Section  Data 

The  theoretical  RCS  data  were  generated  by  the  EFIE  series  of  FORTRAN 
computer  programs.  The  EFIE  series  of  computer  programs  are  discussed  in  Chapter 
3.  Table  5.2  provides  a  list  of  the  RCS  data  computed  by  this  series  of  programs,  and 
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Appendix  E  contains  copies  of  each  of  the  RCS  plots  generated  from  this  computed 
data.  The  RCS  data  were  all  computed  for  square  perfectly  conducting  plates.  The  size 
of  the  perfectly  conducting  plates  was  10cm  by  10cm  for  all  the  computations,  and  the 
frequency  was  always  3.0  GHz.  The  perfectly  conducting  plates  were  coated  on  only 
one  side  with  a  coating  which  had  the  complex  relative  permittivity  (e/j)  and  complex 
relative  permeability  (hr)  of  interest.  The  RCS  was  computed  360  degrees  around 
each  plate  at  109  equally  spaced  points.  Since  the  method  of  moments  is  a  relatively 
low  frequency  technique  (dimensions  of  the  object  relatively  small  with  respect  to  the 
wavelength  of  interest),  a  compromise  was  made  between  the  size  of  the  plate  used, 
the  frequency  of  the  RCS  calculations,  the  magnetic  disk  storage  requirements  for  the 
Z-matrix,  and  the  computation  time  required  for  the  VAX  11/750  to  calculate  the  RCS 
data.  Table  5.2  represents  the  results  of  the  compromise. 

Figures  E.17  through  E.28  in  Appendix  E  are  the  theoretical  RCS  plots  gen¬ 
erated  by  the  EFIE  series  of  FORTRAN  computer  programs.  These  RCS  plots  are 
summarized  in  Table  5.2.  Two  orthogonal  polarizations  are  displayed  in  the  same  fig¬ 
ure.  The  <Thh  polarization  is  on  the  top  of  each  figure,  and  the  ovv  polarization  is  on 
the  bottom  of  each  figure.  These  polarizations  are  explained  in  the  next  paragraph. 
Table  5.2  also  lists  the  computed  value  of  the  RCS  at  normal  incidence  to  the  coated 
side  of  the  plate  ( 0  =  0°)  for  the  Ohh  polarization. 

All  the  theoretical  RCS  plots  in  Appendix  E  display  the  RCS  in  decibels  ref¬ 
erenced  to  one  square  meter  (dBsm)  on  the  Y-axis  versus  angle  on  the  X-axis.  The 
frequency  of  the  RCS  calculation  is  also  annotated  along  the  Y-axis  of  each  RCS  plot. 
The  Ohh  versus  angle  RCS  plots  in  Appendix  E  correspond  to  a  horizontally  polarized 
electric  field  for  the  incident  wave  and  a  horizontally  polarized  electric  field  for  the  scat¬ 
tered  wave  with  respect  to  the  edge  of  the  plate.  Similarly,  the  ovv  versus  angle  RCS 
plots  in  Appendix  E  correspond  to  a  vertically  polarized  electric  field  for  the  incident 
wave  and  a  vertically  polarized  electric  field  for  the  scattered  wave  with  respect  to  the 
edge  of  the  plate.  The  angle  measurement  on  the  X-axis  is  in  degrees. 

The  angle  displayed  on  the  X-axis  in  the  RCS  plots  of  Appendix  E  is  theta 
(5)  in  the  spherical  coordinate  system.  If  the  plane  of  the  plate  is  considered  the  X-Y 
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plane,  then  the  normal  to  this  plane  is  the  Z-axis.  Theta  (0)  in  the  spherical  coordinate 
system  is  measured  with  respect  to  the  Z-axis.  Assuming  the  edges  of  the  plate  are 
parallel  to  the  X-axis  and  Y-axis,  the  cut  obtained  is  for  <j>  =  0°  as  6  varies.  The  plate 
is  coated  on  only  one  side,  and  the  angle  Q  =  0°  on  the  RCS  plot  corresponds  to  normal 
incidence  on  the  side  of  the  plate  with  the  coating.  The  angles  6  =  ±180°  on  the  RCS 
plot  correspond  to  normal  incidence  on  the  uncoated  side  of  the  plate. 

There  are  several  issues  involved  in  the  computation  of  the  RCS  data  using  the 
EFIE  series  of  computer  programs.  The  first  issue  is  modelling  of  the  partially  coated 
perfect  conductor.  The  second  issue  is  the  continuity  of  surface  current  between  the 
boundary  of  the  exposed  perfect  conductor  and  the  coated  perfect  conductor. 

The  question  of  how  to  model  the  partially  coated  perfect  conductor  is  the  first 
issue  which  arises.  Figure  5.3  shows  how  the  partially  coated  perfect  conductor  was 
modelled  in  this  thesis  to  compute  the  RCS  data  for  Figures  E.17  through  E.28.  Figure 
5.3  shows  the  perfect  conductor  is  modelled  as  an  infinitely  thin  plate  composed  of  128 
triangular  patches.  This  figure  also  shows  the  coating  is  modelled  as  an  infinitely  thin 
plate  composed  of  128  triangular  patches.  The  plate  forming  the  surface  of  the  coating 
is  spaced  the  distance  corresponding  to  the  thickness  of  the  coating  away  from  the  plate 
forming  the  perfect  conductor. 

Notice  that  the  surfaces  of  the  coating  along  the  sides  which  would  meet  the 
perfect  conductor  are  not  present  in  Figure  5.3.  The  coatings  used  for  the  experimental 
measurements  are  relatively  thin,  and  satisfactory  RCS  results  were  obtained  from  the 
EFIE  computer  programs  without  including  the  sides  of  the  coating  surface.  Also, 
it  was  found  the  RCS  computation  was  not  improved  by  the  addition  of  the  sides 
of  the  coating.  Since  the  coatings  were  thin,  the  sides  were  composed  of  elongated 
triangular  patches.  With  the  seven-point  numerical  quadrature  integration  scheme 
used  to  compute  the  elements  of  the  Z-matrix  over  the  bi-triangular  subdomains,  the 
best  results  are  obtained  with  triangular  patches  which  have  sides  of  relatively  the  same 
length  [124].  The  triangular  patches  used  to  model  the  sides  of  the  coating  surface  do 
not  meet  this  criteria.  Further,  the  computation  time  was  decreased  by  not  including 
the  sides  of  the  coating  (fewer  triangular  patches  produces  a  smaller  Z-raatrix) . 
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The  second  issue  was  the  continuity  of  surface  current  across  the  boundary  be¬ 
tween  the  exposed  perfect  conductor  and  the  coated  perfect  conductor.  The  model  of 
the  perfect  conductor  shown  in  Figure  5.3  is  actually  two  infinitely  thin  plates  com¬ 
posed  of  128  triangular  patches.  These  two  plates  which  form  the  exposed  and  coated 
portions  of  the  perfect  conductor,  respectively,  are  modelled  as  having  a  separation 
of  zero.  However,  they  are  still  modelled  as  two  distinct  plates.  For  each  plate,  the 
component  of  current  normal  to  an  exposed  edge  is  zero.  Therefore,  there  is  no  conti¬ 
nuity  of  current  between  the  boundary  of  the  exposed  perfect  conductor  and  the  coated 
perfect  conductor  with  the  modelling  scheme  used  in  this  thesis.  The  only  justification 
for  this  is  that  it  was  much  simpler,  and  it  gives  satisfactory  results.  A  model  of  the 
perfect  conductor  was  tried  where  the  plate  forming  the  exposed  perfect  conductor  was 
separated  from  the  plate  forming  the  coated  perfect  conductor  by  a  distance  corre¬ 
sponding  to  the  thickness  of  the  aluminum  plates  (32  mils)  used  in  the  experimental 
measurements.  No  improvement  in  the  calculated  RCS  data  was  noted.  Therefore,  this 
added  complexity  was  discarded. 

As  the  first  step  after  developing  and  debugging  the  EFIE  series  of  FORTRAN 
computer  programs  used  to  compute  the  RCS  data  for  Figures  E.17  through  E.28,  it  was 
necessary  to  verify  that  the  programs  gave  reasonable  results.  As  described  in  Chapter 
3,  the  required  inputs  to  the  computer  programs  were  the  geometry  specifications  for 
the  partially  coated  perfect  conductor  and  the  complex  relative  permittivity  (cr)  and 
permeability  (pr)  of  the  coating.  The  relative  permittivity  (cr  =  1)  and  permeability 
{pr  =  l)  of  free  space  and  a  coating  thickness  of  7.62  x  10-4  meters  were  used  to  verify 
the  proper  performance  of  the  computer  programs.  With  these  inputs,  the  computer 
programs  would  be  expected  to  give  RCS  data  equivalent  to  that  for  an  uncoated 
perfect  conductor.  This  was  not  achieved  until  the  EFIE2PC  program  was  modified. 

The  required  modification  to  the  EFIE2PC  computer  program  involves  the  ap¬ 
proximation  of  the  integration  of  the  weighting  function  over  the  bi-triangular  subdo¬ 
main  as  its  value  at  the  centroid  of  the  triangular  patch  as  shown  in  equation  (A.69) 
of  Appendix  A.  When  this  approximation  was  made  for  all  the  triangular  patches,  the 
EFIE  computer  programs  gave  an  unsatisfactory  match  to  the  experimental  measure- 
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ments  for  the  uncoated  10cm  by  10cm  square  aluminum  plate  (Figure  E.l  of  Appendix 
E).  The  EFIE2PC  computer  program  was  then  modified  to  perform  a  seven-point  nu¬ 
merical  quadrature  integration  over  the  bi-triangular  subdomain  instead  of  making  this 
approximation  whenever  the  distance  from  the  observation  triangle  to  the  source  tri¬ 
angle  was  less  than  the  length  of  any  edge  of  the  observation  triangle.  The  results  were 
satisfactory  when  this  modification  was  incorporated  into  the  EFIE2PC  computer  pro¬ 
gram.  The  first  entry  in  Table  5.2  and  Figure  E.17  of  Appendix  E  show  the  calculated 
RCS  results  with  this  modification.  These  results  will  be  discussed  further  in  the  next 
section. 

The  computed  RCS  data  for  the  Eccosorb  FDS  coated  plate  are  shown  in  the 
second  entry  of  Table  5.2  and  in  Figure  E.18  of  Appendix  E.  A  value  of  €r  =  8.9+x’0.623 
was  used  for  the  complex  relative  permittivity  of  the  Eccosorb  FDS  radar  absorbing 
material,  and  a  value  of  pr  =  1.7-MT.36  was  used  for  the  complex  relative  permeability 
of  the  Eccosorb  FDS  radar  absorbing  material.  These  values  for  the  complex  relative 
permittivity  and  permeability  are  equivalent  to  the  quoted  manufacturer  specifications 
in  Table  4.3  for  the  Eccosorb  FDS  at  a  frequency  of  3.0  GHz. 

The  computed  RCS  data  for  the  Eccosorb  SF  6.0  coated  plate  are  shown  in  the 
third  through  seventh  entries  of  Table  5.2  and  in  Figures  E.19  through  E.23  of  Appendix 
E.  Values  for  the  complex  permittivity  and  permeability  (or  dielectric  and  magnetic 
constants  and  loss  tangents)  were  not  available  in  the  manufacturer’s  literature  for  the 
Eccosorb  SF  6.0  radax  absorbing  material.  However,  a  nominal  value  for  the  loss  at 
normal  incidence  of  -5  dB  at  a  frequency  of  3.0  GHz  was  quoted.  Therefore,  the  values 
for  the  complex  relative  permittivity  and  permeability  shown  in  Table  5.2  were  chosen. 

The  values  of  €r  =  8.9  +  i0.623  and  pr  =  2.9  +  *2.32  for  the  complex  relative 
permittivity  and  permeability,  respectively,  of  the  Eccosorb  SF  6.0  were  chosen  in  the 
following  manner.  The  manufacturer’s  quoted  value  of  a  -5  dB  loss  at  normal  incidence 
for  a  frequency  of  3.0  GHz  was  used.  It  was  assumed  this  was  for  an  infinite  sheet  of 
the  radax  absorbing  material.  Ignoring  reflection  at  the  free  space/coating  boundary, 
a  value  for  the  imaginary  part  of  the  propagation  constant  which  would  give  -5  dB  of 
loss  was  computed  according  to  the  following  formula: 
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-5  dB  =  20  log10  e  k  z  (5.1) 

where  k"  is  the  imaginary  part  of  the  propagation  constant  (k  =  u>y/pe),  and  z  is  equal 
to  twice  the  thickness  of  the  Eccosorb  SF  6.0  radar  absorbing  material  (the  wave  travels 
through  the  coating,  is  reflected  at  the  perfect  conductor,  and  travels  back  through  the 
coating).  This  value  for  the  imaginary  part  of  the  propagation  constant  easily  yields 
a  value  for  the  product  of  the  complex  relative  permittivity  and  permeability.  Next, 
since  both  the  Eccosorb  SF  6.0  and  the  FDS  materials  are  based  on  a  silicon  rubber 
compound,  it  was  assumed  the  same  value  for  the  complex  relative  permittivity  of  the 
SF  6.0  as  the  manufacturer  quoted  for  the  FDS  radar  absorbing  material.  Thus,  the 
value  for  the  complex  relative  permeability  was  fixed.  This  is  how  the  values  for  the 
complex  relative  permittivity  and  permeability  of  the  Eccosorb  SF  6.0  radar  absorbing 
material  quoted  above  were  arrived  at. 

The  values  discussed  in  the  previous  paragraph  for  cr  and  pr  of  the  Eccosorb 
SF  6.0  coating  produced  a  decrease  in  the  RCS  at  normal  incidence  of  -5.7  dB,  as  shown 
by  the  first  and  third  entries  in  Table  5.2.  Unfortunately,  this  was  more  loss  than  was 
measured  experimentally  (see  Table  5.1).  Various  values  for  cr  and  pr  were  then  used 
to  examine  the  behavior  of  the  EFIE  computer  programs  and  to  see  which  values  might 
produce  the  best  fit  to  the  experimental  RCS  data.  This  will  be  discussed  further  in 
the  next  section. 

The  computed  RCS  data  for  the  Eccosorb  FGM  40  coated  plate  are  shown  in 
the  eighth  through  twelfth  entries  of  Table  5.2  and  in  Figures  E.24  through  E.28  of 
Appendix  E.  Values  for  the  complex  permittivity  and  permeability  (or  dielectric  and 
magnetic  constants  and  loss  tangents)  were  also  not  available  in  the  manufacturer’s 
literature  for  the  Eccosorb  FGM  40  radar  absorbing  material.  The  values  of  (.r  and  pr 
shown  in  Table  5.2  for  the  Eccosorb  FGM  40  coating  were  chosen  in  the  same  manner 
as  outlined  in  the  previous  paragraphs  for  the  Eccosorb  SF  6.0  coating. 

The  values  of  €r  and  pr  shown  in  the  seventh  and  twelfth  entries  of  Table  5.2 
for  the  Eccosorb  SF  6.0  and  FGM  40  coatings,  respectively,  were  chosen  in  a  slightly 
different  manner.  The  complex  relative  permittivities  and  permeabilities  listed  in  these 
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entries  were  calculated  assuming  the  coatings  have  one-half  the  thickness  and  twice  the 
loss  quoted  by  the  manufacturer’s  literature  for  each  respective  coating.  The  results 
will  be  discussed  further  in  the  next  section. 

5.4  Comparison  of  Experimental  and  Theoretical  Results 

The  comparison  of  the  experimental  and  theoretical  results  is  done  in  Figures 
5.4  through  5.15  at  the  end  of  this  chapter.  These  figures  are  the  composites  of  the 
theoretical  RCS  predictions  listed  in  Table  5.2  and  the  corresponding  experimental 
RCS  plots  for  the  same  set  of  conditions.  Figures  5.4  through  5.15  display  the  Ohh 
versus  angle  curves  for  the  experimental  RCS  data  (solid  line)  and  the  corresponding 
theoretical  RCS  predictions  (dashed  line)  generated  by  the  EFIE  series  of  computer 
programs.  These  figures  were  produced  by  overlaying  the  experimental  RCS  plots  onto 
the  theoretical  RCS  predictions. 

Verification  of  the  performance  of  the  EFIE  series  of  computer  programs  is 
provided  by  Figure  5.4.  The  relative  permittivity  (ch)  and  permeability  {pr)  of  the 
coating  were  set  equal  to  the  free  space  values  in  the  EFIE  series  of  computer  programs 
to  generate  the  theoretical  RCS  prediction.  As  discussed  in  the  previous  section,  the 
computer  programs  would  be  expected  to  give  RCS  data  equivalent  to  that  for  an 
uncoated  perfect  conductor  for  these  values  of  cr  and  pr.  Figure  5.4  is  a  comparison 
of  the  experimental  RCS  data  for  an  uncoated  10cm  by  10cm  aluminum  plate  and 
the  corresponding  theoretical  RCS  prediction.  The  theoretical  results  are  very  close 
to  the  experimental  data.  The  first  entries  in  Tables  5.1  and  5.2  show  the  theoretical 
RCS  at  normal  incidence  to  the  coated  side  of  the  plate  is  only  0.1  dB  below  the 
experimental  measurement.  This  provides  confidence  in  the  performance  of  the  EFIE 
series  of  computer  programs. 

Figure  5.5  is  a  comparison  of  the  experimental  and  theoretical  data  for  an  Ec- 
cosorb  FDS  coated  plate.  The  relative  permittivity  (cr)  and  permeability  (pr)  of  the 
coating  were  set  equal  to  the  values  shown  in  the  second  entry  in  Table  5.2  for  the 
EFIE  series  of  computer  programs  to  generate  the  theoretical  RCS  prediction.  Again, 
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the  theoretical  results  are  very  close  to  the  experimental  data.  The  RCS  at  normal 
incidence  to  the  coated  side  of  the  plate  (exhh  in  Tables  5.1  and  5.2)  is  -10.3  dBsm  for 
the  theoretical  prediction  and  -10.6  dBsm  for  the  experimental  measurement,  a  0.3  dB 
difference.  Figure  5.5  also  shows  the  match  is  almost  exact  down  to  approximately  -25 
dBsm. 

Figures  5.6  through  5.10  axe  the  comparisons  of  the  experimental  and  theoretical 
data  for  an  Eccosorb  SF  6.0  coated  plate.  Figure  5.8  shows  the  best  fit  of  the  theoretical 
RCS  prediction  to  the  expermental  measurement  down  to  approximately  -20  dBsm. 
The  relative  permittivity  (e#)  and  permeability  (pr)  of  the  coating  were  set  equal  to 
the  values  shown  in  the  third  through  seventh  entries  in  Table  5.2  for  the  EFIE  series 
of  computer  programs  to  generate  the  theoretical  RCS  predictions.  As  discussed  in 
the  previous  section,  all  the  values  for  cr  and  pr  shown  in  Table  5.2  for  the  Eccosorb 
SF  6.0  radar  absorbing  material  were  chosen,  and  they  are  not  the  manufacturer’s 
specifications.  The  different  values  of  (.r  and  pr  were  chosen  to  investigate  the  behavior 
of  the  EFIE  computer  programs,  and  to  see  which  value  gave  the  closest  fit  to  the 
experimental  data. 

The  RCS  at  normal  incidence  to  the  coated  side  of  the  plate  (ohh.  in  Tables 
5.1  and  5.2)  is  -12.5  dBsm  for  the  experimental  measurement  (third  entry  in  Table 
5.1).  The  theoretical  predictions  for  the  RCS  at  normal  incidence  to  the  coated  side 
of  the  plate  are  -15.5,  -12.1,  -12.4,  -12.0,  and  -11.2  dBsm,  respectively,  for  the  third 
through  seventh  entries  in  Table  5.2.  The  first  theoretical  prediction  is  -3.0  dB  too  low. 
As  discussed  in  the  previous  section,  the  values  for  er  and  pr  used  to  generate  this 
prediction  were  based  on  the  manufacturer’s  quoted  RCS  reduction  of  a  nominal  -5 
dB  at  normal  incidence.  The  computed  reduction  is  actually  -5.7  dB  (the  third  entry 
minus  the  first  entry  in  Table  5.2).  The  next  three  RCS  predictions  in  Table  5.2  for  the 
SF  6.0  are  relatively  close:  a  difference  of  +0.4  dB,  +0.1  dB,  and  +0.5  dB,  respectively, 
from  the  experimental  measurement.  The  last  RCS  prediction  for  the  SF  6.0  assumed 
a  coating  with  twice  the  thickness  and  one-half  the  loss  to  compute  the  values  of  er 
and  pr.  This  prediction  was  +1.3  dB  too  high. 

Figures  5.11  through  5.15  are  the  comparisons  of  the  experimental  and  theo- 
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retical  data  for  an  Eccosorb  FGM  40  coated  plate.  Figures  5.13  and  5.14  both  show 
a  close  fit  of  the  theoretical  RCS  prediction  to  the  expermental  measurement  down 
to  approximately  -20  dBsm.  The  relative  permittivity  (e#)  and  permeability  (pr)  of 
the  coating  were  set  equal  to  the  values  shown  in  the  eighth  through  twelfth  entries  in 
Table  5.2  for  the  EFIE  series  of  computer  programs  to  generate  the  theoretical  RCS 
predictions.  As  discussed  in  the  previous  section,  all  the  values  for  £r  and  pr  shown  in 
Table  5.2  for  the  Eccosorb  FGM  40  radar  absorbing  material  were  chosen,  and  they  are 
not  the  manufacturer’s  specifications.  The  different  values  of  €r  and  p r  were  chosen 
to  investigate  the  behavior  of  the  EFIE  computer  programs,  and  to  see  which  value 
gave  the  closest  fit  to  the  experimental  data. 

The  RCS  at  normal  incidence  to  the  coated  side  of  the  plate  ( Ohh  in  Tables 
5.1  and  5.2)  is  -13.3  dBsm  for  the  experimental  measurement  (fourth  entry  in  Table 
5.1).  The  theoretical  predictions  for  the  RCS  at  normal  incidence  to  the  coated  side 
of  the  plate  are  -12.5,  -15.3,  -13.0,  -13.5,  and  -12.2  dBsm,  respectively,  for  the  eighth 
through  twelfth  entries  in  Table  5.2.  The  first  four  RCS  predictions  in  Table  5.2  for  the 
FGM  40  are  a  difference  of  +0.8  dB,  -2.0  dB,  +0.3dB,  and  -0.2  dB,  respectively,  from 
the  experimental  measurement.  The  last  RCS  prediction  for  the  FGM  40  assumed  a 
coating  with  twice  the  thickness  and  one-half  the  loss  to  compute  the  values  of  €r  and 
Pr.  This  prediction  was  +1.1  dB  too  high. 

The  difference  of  the  theoretical  RCS  predictions  from  the  experimental  RCS 
measurements  is  a  function  of  the  approximations  made  in  the  theoretical  model.  One 
approximation  to  consider  is  the  modelling  of  the  coating.  As  discussed  in  the  previous 
section,  the  surfaces  of  the  coating  along  the  sides  which  would  meet  the  perfect  con¬ 
ductor  were  not  used.  This  could  account  for  the  differences  between  the  theoretical 
RCS  predictions  and  the  experimental  RCS  measurements  near  ±90°  in  Figures  5.4 
through  5.15.  At  these  angles  the  contribution  of  the  sides  of  the  coating  to  the  overall 
RCS  could  be  more  important.  This  issue  and  others  are  discussed  further  in  Chapter 
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Coatings  listed  are  Eccosorb  radar  absorbing  material 
Targets  are  square  aluminum  plates  coated  on  one  side 
/  =  radar  frequency  in  gigahertz  (GHz) 

RCS  measurements  made  at  360  points  from  —180°  to  180° 
RCS  is  in  decibels  referenced  to  one  square  meter  (dBsm) 
Ohh  =  RCS  at  normal  incidence  (0°)  to  coated  side  of  plate 
for  HH  polarization 


Plate  Size 

Coating 

Case 

/ 

0hH 

Figure 

10cm  x  10cm 

None 

13 

3.0 

-9.7 

E.l 

10cm  x  10cm 

FDS 

16 

3.0 

-10.6 

E.2 

10cm  x  10cm 

SF  6.0 

15 

3.0 

-12.5 

E.3 

10cm  x  10cm 

FGM  40 

14 

3.0 

-13.3 

E.4 

10cm  x  10cm 

None 

13B 

6.0 

-3.4 

E.5 

10cm  x  10cm 

FDS 

16B 

6.0 

B 

E.6 

10cm  x  10cm 

SF  6.0 

15B 

6.0 

-20.0 

E.7 

10cm  x  10cm 

FGM  40 

14B 

6.0 

-15.2 

E.8 

15cm  x  15cm 

None 

9 

3.0 

-1.1 

E.9 

15cm  x  15cm 

FDS 

12 

3.0 

-2.1 

E.10 

15cm  x  15cm 

SF  6.0 

11 

3.0 

-4.4 

E.ll 

15cm  x  15cm 

FGM  40 

10 

3.0 

-7.0 

E.12 

15cm  x  15cm 

None 

9B 

6.0 

WEM 

E.13 

15cm  x  15cm 

FDS 

12B 

6.0 

3.3 

E.14 

15cm  x  15cm 

SF  6.0 

11B 

6.0 

-13.3 

E.15 

15cm  x  15cm 

FGM  40 

10B 

6.0 

-9.4 

E.16 

Table  5.1.  Experimental  Radar  Cross  Section  Plots 
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Coating  parameters  used  correspond  to  Eccosorb  specfications 

cr  =  complex  relative  permittivity  of  coating 

Hr  =  complex  relative  permeability  of  coating 

Targets  are  square  plate  perfect  conductors  coated  on  one  side 

Radar  frequency  is  3.0  gigahertz  (GHz)  for  all  entries 

RCS  computations  made  at  109  points  from  —180°  to  180° 

Ohh  =  RCS  at  normal  incidence  (0°)  to  coated  side  of  plate 
for  HH  polarization 

*  permittivity  and  permeability  for  these  two  cases  computed 
assuming  coatings  have  one-half  the  thickness  and  twice  the  loss 


Plate  Size 

Coating 

PR 

ohh 

Figure 

10cm  x  10cm 

None 

(1.0, 0.0) 

(1.0, 0.0) 

-9.8 

E.17 

10cm  x  10cm 

FDS 

(8.9.0.623) 

(1.7,1.36) 

-10.3 

E.18 

10cm  x  10cm 

SF  6.0 

(8.9,0.623) 

(2.9,2.32) 

-15.5 

E.19 

10cm  x  10cm 

SF  6.0 

(5.0,0.623) 

(1.3,0.93) 

-12.1 

E.20 

10cm  x  10cm 

SF  6.0 

(5.0, 0.0) 

(1.18,1.09) 

-12.4 

E.21 

10cm  x  10cm 

SF  6.0 

(8.9,0.623) 

(1.85,0.83) 

-12.0 

E.22 

10cm  x  10cm 

SF  6.0 

(8.9,0.623) 

(0.46,0.21)* 

-11.2 

E.23 

10cm  x  10cm 

FGM  40 

(11.0,0.1) 

(4.2, 3.8) 

-12.5 

E.24 

10cm  x  10cm 

FGM  40 

(5.0, 0.0) 

(9.2, 8.5) 

-15.3 

E.25 

10cm  x  10cm 

FGM  40 

(8.9,0.623) 

(5.5, 4.4) 

-13.0 

E.26 

10cm  x  10cm 

FGM  40 

(8.0, 0.0) 

(5.8, 5.4) 

-13.5 

E.27 

10cm  x  10cm 

FGM  40 

(8.9,0.623) 

llpllllMl 

-12.2 

E.28 

Table  5.2.  Theoretical  Radar  Cross  Section  Predictions 


thickness 

of 

coating 
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coating 

surface 


■aga« 

mm 


coated  perfect 
conductor 


exposed  perfect 
conductor 


Figure  5.3.  Triangular  patch  model  of  partially  coated  perfectly  conducting  square  plate 


•  *  v  v  '»  S  *  , 


Figure  5.4.  Experimental  (solid  line)  and  theoretical  (dashed  line)  3.0  GHz  RCS  for  uncoated 
10cm  by  10cm  aluminum  plate:  versus  angle 
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Chapter  6 

GENERALIZATION  TO  MULTI-LAYERED  COATING 


6.1  Introduction 


This  chapter  presents  the  extension  of  the  procedure  discussed  in  Chapter  3  to 
a  multi-layered  coating.  Chapter  3  discussed  the  approach  used  for  a  single  layer  of 
coating  on  a  perfectly  conducting  surface.  The  cases  of  a  completely  coated  perfect 
conductor  and  a  partially  coated  perfect  conductor  were  derived  in  Chapter  3.  This 
chapter  also  discusses  the  cases  of  a  completely  coated  perfect  conductor  (section  6.2) 
and  a  partially  coated  perfect  conductor  (section  6.3)  with  multi-layered  coatings. 


Using  Huygens’  principle,  the  equivalence  principle,  and  satisfying  the  bound¬ 
ary  conditions  for  a  completely  coated  perfect  conductor  generates  a  set  of  integro- 
differential  equations  (see  Appendix  A).  Applying  the  method  of  moments  to  this  set 
of  integro-differential  equations  produces  a  matrix  equation.  As  derived  in  Appendix  A 
for  one  layer  of  coating  completely  enclosing  a  perfect  conductor  (refer  to  Figure  3.1), 
the  matrix  equation  is  of  the  form: 

— m  ^  ( =u  — 12  — 13\  f  \ 

~m>  )  =  (  — 21  — 22  — 23  )  I  1  )  '  (6.1) 

Om"  J  \^31  Z 32  ZzzJ  \  J 

The  left  half  of  the  equation  represents  the  excitation  vector,  and  the  right  half  of 
the  equation  represents  the  interaction  matrix,  Z-matrix,  times  the  unknown  electric 
and  magnetic  surface  current  coefficients.  This  matrix  equation  corresponds  to  three 
simultaneous  equations  in  three  unknowns.  Now,  the  third  equation  can  be  used  to 
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back-substitute  and  reduce  the  size  of  the  Z-matrix: 

Jo  =  -Z33  [Z3i-Ji  +  Z32-Mi].  (6-2) 

Back-substituting  leaves  two  simultaneous  equations  which  can  be  written  as  the  fol¬ 
lowing  matrix  equation: 


U-J  It;,  zj  UJ 


where 


Z \\  =  Z\\  —  Z\z  ‘  Z33  •  Zz\  (6.4) 

Z\2  =  Z\2  —  Z\z  •  Z33  •  Zz2  (6.5) 

Z 2i  =  Zz\  —  Z3z  •  Z 33  •  Z31  (6.6) 

^22  =  ^22  —  Zzz  •  £33  •  Zz2-  (6.7) 

Assume  N  basis  functions  are  obtained  over  each  boundary  surface  using  the 
method  of  moments.  Equation  6.1  requires  the  inversion  of  a  3N  by  3N  Z-matrix  to 
compute  the  unknown  surface  current  coefficients.  Back-substitution  requires  the  inver¬ 
sion  of  an  N  by  N  matrix,  Z33  ,  some  matrix  multiplications  and  additions,  equations 
6.4  through  6.7,  and  the  inversion  of  a  2N  by  2N  Z-matrix,  equation  6.3.  However,  all 
the  target  structure  beneath  the  coating  has  been  replaced  by  an  equivalent  interac¬ 
tion  matrix  as  shown  in  equation  6.3.  This  has  significance  for  the  extension  of  the 
procedure  discussed  in  Chapter  3  to  multi-layered  coatings. 

For  two  layers  of  coating  on  a  perfect  conductor  (refer  to  Figure  6.1),  the  matrix 
equation  is  of  the  form: 


Em  \  Z_\\  Z\i  Z_  13  Z\\  0 

Hm'  Z_  21  Z_  22  Zzz  Zz\  _0 

Om"  =  Z_z\  Z_Z2  ZzZ  ZzA  ZjZ5 

_9m"'  Z  41  Z  42  Z43  Z_44  Z_4f> 

0  0  Zzz  Z  54  Z55 
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This  matrix  equation  represents  five  simultaneous  equations  in  five  unknowns.  Back- 
substituting  the  fifth  equation  in  6.8  in  the  manner  used  for  6.1  yields  a  matrix  equation 
of  the  form: 


/£m 

0  m" 
V  0  min 


£11 

z_  12 

Z_  13 

£l4^ 

(  J2 

Z21 

^22 

Z_23 

Z24 

m2 

Zzi 

Zz2 

Z33 

Z34 

-1 

Z41 

Z42 

Z  43 

Z  44  ) 

v  Mi 

(6.9) 


which  represents  four  simultaneous  equations  in  four  unknowns.  Obviously,  the  ele¬ 
ments  of  the  15-matrix  in  equation  6.9  are  not  the  same  as  the  elements  of  the  Z-matrix 
in  equation  6.8  due  to  the  back-substitution.  Further,  the  explicit  equation  represent¬ 


ing  the  interaction  of  the  perfect  conductor  surface  with  the  first  layer  of  coating  has 
now  been  absorbed  into  the  equivalent  Z-matrix  shown  in  6.9.  Now,  the  third  and 
fourth  equations  in  6.9  can  be  written  as 


^33  ‘  J l  +  Zm  •  M  i  =  -  \Zz\  •  J 2  +  Z 32  •  M2 ] 


and 


(6.10) 


Zaz  •  Ji  +  Z44  -  Mi  —  —  [Z41  •  J2  +  Z42  •  M2] , 


which  becomes 


Therefore, 


fcHl:  ?:)(&)■ 

Back-substituting  equation  6.13  into  6.9  produces  a  matrix  equation  of  the  form: 


(6.11) 


(I:  :!::)(£)•  <-> 


-=?  \ 

\-  Zn 

ZX2  \ 

}  —  \  z=f 

=)  1 

1  U21 

^22  / 

J_2  \ 

M 2) 


(6.14) 


Again,  assume  N  basis  functions  are  obtained  over  each  boundary  surface  using 
the  method  of  moments.  Equation  6.8  requires  the  inversion  of  a  5N  by  5N  Z-matrix 
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to  compute  the  unknown  surface  current  coefficients.  Back-substitution  requires  the 
inversion  of  an  N  by  N  matrix,  some  matrix  multiplications  and  additions,  the  inversion 
of  a  2N  by  2N  Z-matrix,  equation  6.13,  followed  by  some  matrix  multiplications  and 
additions,  and,  finally,  the  inversion  of  another  2N  by  2N  Z-matrix,  equation  6.14. 
All  the  target  structure  beneath  the  second  layer  of  coating  has  been  replaced  by  am 
equivalent  interaction  matrix  as  shown  in  equation  6.14.  This  additional  layer  of  coating 
only  requires  the  inversion  of  an  additional  2N  by  2N  Z-matrix  over  the  one  layer  case. 

For  three  layers  of  coating  on  a  perfect  conductor  (refer  to  Figure  6.2),  the 
matrix  equation  is  of  the  form: 


(  Em  ^ 

(Zu 

Z\2 

Z_  13 

0 

0 

0  > 

Hm> 

Z21 

Z22 

Z_23 

Z24 

_0 

_0 

0 

0  m" 

Zs\ 

Z32 

Zsz 

Z34 

£35 

Zze 

0 

0  m"' 

Z41 

Z42 

Z_4Z 

Z_  44 

£45 

£46 

0 

0m(<») 

0 

0 

Ztz 

Z_  54 

Zss 

Zse 

Z$7 

0m<-) 

0 

0 

Zes 

Zq4 

Zq5 

Z_66 

Zq7 

V 0m(**>  / 

V  0 

0 

0 

0 

Z  75 

Z  76 

z  77  j 

(Jz  \ 
M3 
J_2 
m2 

Mi 


(6.15) 


By  the  same  logic  used  for  the  2  layer  case,  back-substitution  reduces  the  size  of  the 
Z-matrix  for  three  layers  of  coating  enclosing  a  perfect  conductor: 


since 


(6.16) 


(h  \  -  -  (  ^33  2 

V"J  If'  t 


(6.17) 


Again,  assume  N  basis  functions  are  obtained  over  each  boundary  surface  using 
the  method  of  moments.  Equation  6.15  requires  the  inversion  of  a  7N  by  7N  Z-matrix 
to  compute  the  unknown  surface  current  coefficients.  Back-substitution  requires  the 
inversion  of  one  N  by  N  and  three  2N  by  2N  matrices,  along  with  some  intermediate 
matrix  multiplications  and  additions.  All  the  target  structure  beneath  the  third  layer 
of  coating  has  been  replaced  by  an  equivalent  interaction  matrix  as  shown  in  equation 
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6.16.  This  additional  layer  of  coating  only  requires  the  inversion  of  an  additional  2N 
by  2N  Z-matrix  over  the  two  layer  case. 

A  recursive  relationship  emerges  for  multi-layered  coatings  enclosing  a  perfect 
conductor.  Instead  of  the  problem  involving  the  inversion  of  ever  larger  Z-matrices 
for  each  added  layer  of  coating,  it  becomes  one  of  the  intermediate  inversion  of  a  2N 
by  2N  matrix  for  each  added  layer  of  coating.  Thus,  after  each  intermediate  2N  by 
2N  inversion  and  back-substitution,  the  effects  of  the  inner  layer  are  included,  and  the 
inner  layer’s  unknown  surface  current  coefficients  axe  discarded.  So,  for  the  three  layer 
example,  instead  of  inverting  a  7N  by  7N  Z-matrix  (inversion  time  increases  as  N3), 
the  problem  involves  the  inversion  of  one  N  by  N  and  three  2N  by  2N  matrices.  The 
problem  only  increases  linearly  in  computation  time  for  each  added  layer:  another  2N 
by  2N  matrix  inversion  for  each  added  layer  of  coating. 

For  n  layers  of  coating  on  a  perfect  conductor  (refer  to  Figure  6.3),  the  matrix 
equation  is  of  the  form: 


Zil  Z_\ 2  Zxz  Z14 
Z_  21  Z_22  Z_2Z  Z?A 

Zz\  Z_ 32  Zj3  Zz4 
Z41  Z42  Z43  Z44 

0  0  0  0 


The  extension  to  n  layers  of  coating  enclosing  the  perfect  conductor  is  straightforward, 
given  the  approach  outlined  above.  Starting  with  the  innermost  layer,  the  Z-matrix 
elements  would  be  computed  as  for  the  single  layer  case  presented  in  Appendix  A.  How¬ 
ever,  instead  of  the  surrounding  medium  being  free-space,  it  now  has  the  permittivity 
and  permeability  of  the  next  layer  of  coating.  Matrix  inversion  and  back-substitution 
proceeds  progressively  for  each  layer  of  coating  added,  with  the  permittivity  and  per¬ 
meability  of  the  surrounding  medium  always  being  that  of  the  next  layer  to  be  added. 
This  process  is  repeated  until  the  outermost  layer  of  coating  is  reached.  The  equiva¬ 
lent  electric  and  magnetic  surface  current  coefficients  of  the  outermost  layer  are  then 
computed,  and  the  scattered  field  is  calculated  as  discussed  previously. 


a 
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6.3  Partially  Coated  Perfect  Conductor 

The  generalization  to  a  multi-layered  coating  for  a  partially  coated  perfect  con¬ 
ductor  follows  the  same  line  of  reasoning  as  presented  in  section  6.2  for  the  completely 
coated  perfect  conductor.  Using  Huygens’  principle,  the  equivalence  principle,  and  sat¬ 
isfying  the  boundary  conditions  for  a  partially  coated  perfect  conductor  generates  a  set 
of  integro-differential  equations  (see  Appendix  A).  Applying  the  method  of  moments 
to  this  set  of  integro-differential  equations  produces  a  matrix  equation.  As  derived  in 
Appendix  A  for  one  layer  of  coating  partially  enclosing  a  perfect  conductor  (refer  to 
Figure  3.3),  the  matrix  equation  is  of  the  form: 


(6.19) 


The  left  half  of  the  equation  represents  the  excitation  vector,  and  the  right  half  of 
the  equation  represents  the  interaction  matrix,  Z-matrix,  times  the  unknown  electric 
and  magnetic  surface  current  coefficients.  This  matrix  equation  corresponds  to  four 
simultaneous  equations  in  four  unknowns.  Now,  the  fourth  equation  in  6.19  can  be 
used  to  back-substitute  and  reduce  the  size  of  the  Z-matrix: 


Em  \ 

(Zn 

Z_12 

Z\z 

Z_  14 

Hm> 

'  Z  21 

Zj22 

Ziz 

Z  24 

Em"  I 

l  z31 

Z32 

Z33 

_ 0 

0m>"  J 

'  Z  41 

Z42 

0 

Z  44 

Jz  =  Z  44  [^41  •  J\  +  Z 42  'Mi\. 


(6.20) 


Back-substituting  leaves  three  simultaneous  equations  which  can  be  written  as  the 
following  matrix  equation: 


where 


Zn  Zl2  z  13 
=/  =/  =1 
Z  2\  Z  22  Z2z 

—1  =1  = I 

Zzx  Z3  2  Z  33 


Z\\  —  Z\\  —  Z 14  •  Z44  •  Z41 


(6.21) 


(6.22) 


■V. 
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=  Z 12  —  Z 14  •  Z44  •  Z 42 

(6.23) 

Z\z  =  Ziz 

(6.24) 

=  %21  ~  Z 24  *  Z4A  •  Z4\ 

(6.25) 

—  Z 22  Z 24  '  Z 44  *  Z 42* 

(6.26) 

^23  =  ^23 

(6.27) 

f  _ 

(6.28) 

Zzl  =  Zzx 

_ f  _ 

(6.29) 

Z  32  =  Zz2 

Z  33  =  Zzz 

(6.30) 

Assume  N  basis  functions  axe  obtained  over  each  boundaxy  surface  using  the 
method  of  moments.  Equation  6.19  requires  the  inversion  of  a  4N  by  4N  Z-matrix  to 
compute  the  unknown  surface  current  coefficients  for  a  partially  coated  perfect  conduc¬ 
tor.  Back-substitution  requires  the  inversion  of  an  N  by  N  matrix,  ZAA  ,  some  matrix 
multiplications  and  additions,  equations  6.22  through  6.30,  and  the  inversion  of  a  3N 
by  3N  Z-matrix,  equation  6.21.  However,  all  the  target  structure  beneath  the  coating 
has  been  replaced  by  an  equivalent  interaction  matrix  as  shown  in  equation  6.21.  This 
has  significance  for  the  extension  of  the  procedure  discussed  in  Chapter  3  and  section 
6.2  to  multi-layered  coatings  over  a  partially  coated  perfect  conductor. 

For  two  layers  of  coating  on  a  partially  coated  perfect  conductor  (refer  to  Figure 
6.4),  the  matrix  equation  is  of  the  form: 


(  E  m  N 

^  Z_\l  Z_  12  Z_\z  Z_IA  Zj5  0  ^ 

(  J2\ 

Hm> 

Z21  Z22  Z  23  Z  24  Z  25  0 

m2 

0m" 

Z  31  Z  32  Z  33  Z  34  0  Z  36 

J 1 

_0  m"‘ 

Z_A\  Z_42  Z  43  Z  44  _0  Z4Q 

Mi 

Z$i  Z  52  0  0  Zss  0 

Jz 

V  om(.)  y 

^  0  0  Zqz  Zqa  0  Zqq  j 

\J4J 

This  matrix  equation  represents  six  simultaneous  equations  in  six  unknowns.  Back- 
substituting  the  sixth  equation  in  6.31  in  the  manner  used  for  6.19  yields  a  matrix 
equation  of  the  form: 
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f  Em  ^ 

(l11 

Z12 

Ziz 

Z_14 

£1S1 

Hm' 

Z21 

Z22 

Z_  23 

Z_24 

^25 

0  m" 

= 

f^31 

Z_32 

Z33 

Z34 

0 

_0  m"' 

^41 

Z_42 

Z43 

Z44 

_0 

\Emiiw)  y 

<Zbi 

Z  52 

0 

0 

Z 5$  J 

f  I?  ^ 

M2 

Ji 

Mx 

V73  / 


(6.32) 


which  represents  five  simultaneous  equations  in  five  unknowns.  Obviously,  the  elements 
of  the  Z-matrix  in  equation  6.32  are  not  the  same  as  the  elements  of  the  Z-matrix  in 
equation  6.31  due  to  the  back-substitution.  Further,  the  explicit  equation  representing 
the  interaction  of  the  coated  perfect  conductor  surface  with  the  first  layer  of  coating 
has  now  been  absorbed  into  the  equivalent  Z-matrix  shown  in  6.32.  Now,  the  third  and 
fourth  equations  in  6.32  can  be  written  as 


Z33  *  J i  +  Z34  •  Mi  =  —  [Z31  •  J 2  +  Z32  •  M2] 


(6.33) 


and 


Z43  •  Ji  +  Z44  •  M 1  ~  —  [Z41  •  J2  +  Z 42  •  M2], 


(6.34) 


which  becomes 


(fc  !::)(&)  :!:;)(£)•  **» 


Therefore, 


(£)=-(!::  I  :)"l(li:  !:;)(£)•  ^ 

Back-substituting  equation  6.36  into  6.32  produces  a  matrix  equation  of  the  form: 


Zfi  Z 1 9  /  .r. 


_12 

-^22 
— / 

Z, 


_13 

^23 

=/ 

Z< 


(6.37) 


'll 

=  I  *21 

%  31  ^32  ^33^ 

Again,  assume  N  basis  functions  are  obtained  over  each  boundary  surface  using 
the  method  of  moments.  Equation  6.31  requires  the  inversion  of  a  6N  by  6N  Z-matrix 
to  compute  the  unknown  surface  current  coefficients.  Back-substitution  requires  the 


Chapter  6.  Generalization  to  Multi-Layered  Coating 


80 


inversion  of  an  N  by  N  matrix,  some  matrix  multiplications  and  additions,  the  inversion 
of  a  2N  by  2N  Z-matrix,  equation  6.36,  followed  by  some  matrix  multiplications  and 
additions,  and,  finally,  the  inversion  of  another  3N  by  3N  Z-matrix,  equation  S.37. 
All  the  target  structure  beneath  the  second  layer  of  coating  has  been  replaced  by  an 
equivalent  interaction  matrix  as  shown  in  equation  6.37.  This  additional  layer  of  coating 
only  requires  the  inversion  of  an  additional  2N  by  2N  Z-matrix  over  the  one  layer  case. 

For  three  layers  of  coating  on  a  perfect  conductor  (refer  to  Figure  6.5),  the 
matrix  equation  is  of  the  form: 


f  H  \ 
M3 

Jj 

m2 

Jj 

Mi 
J 4 

\15J 


/  Em  \ 

(gll 

Z_12 

Z_iz 

£l4 

0 

0 

Z\7 

0 1 

Hm> 

Zji 

Z_22 

Z_2Z 

ZjA 

_0 

_0 

Z  27 

0 

0  m» 

Z_zx 

Zj2 

Z_zz 

Zz4 

Zzs 

Zze 

0 

0 

0  m"> 

Z  4\ 

Z  42 

Z_4Z 

Z44 

£45 

Z46 

0 

_0 

0 

0 

Zbz 

Zb4 

£56 
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By  the  same  logic  used  for  the  2  layer  case,  back-substitution  reduces  the  size  of  the 
Z-matrix  for  three  layers  of  coating  partially  enclosing  a  perfect  conductor: 


since 
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Again,  assume  N  basis  functions  are  obtained  over  each  boundary  surface  using 
the  method  of  moments.  Equation  6.38  requires  the  inversion  of  an  8N  by  8N  Z-matrix 
to  compute  the  unknown  surface  current  coefficients.  Back-substitution  requires  the 
inversion  of  one  N  by  N  matrix,  two  2N  by  2N  matrices,  and  one  3N  by  3N  matrix  along 
with  some  intermediate  matrix  multiplications  and  additions.  All  the  target  structure 
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beneath  the  third  layer  of  coating  has  been  replaced  by  am  equivalent  interaction  matrix 
as  shown  in  equation  6.39.  This  additional  layer  of  coating  only  requires  the  inversion 
of  an  additional  2N  by  2N  Z-matrix  over  the  two  layer  case. 

A  recursive  relationship  emerges  for  multi-layered  coatings  partially  enclosing 
a  perfect  conductor.  Instead  of  the  problem  involving  the  inversion  of  ever  larger  Z- 
matrices  for  each  added  layer  of  coating,  it  becomes  one  of  the  intermediate  inversion 
of  a  2N  by  2N  matrix  for  each  added  layer  of  coating.  Thus,  after  each  intermediate  2N 
by  2N  inversion  and  back-substitution,  the  effects  of  the  inner  layer  are  included,  and 
the  inner  layer’s  unknown  surface  current  coefficients  are  discarded.  So,  for  the  three 
layer  example,  instead  of  inverting  an  8N  by  8N  Z-matrix  (inversion  time  increases  as 
N3),  the  problem  involves  the  inversion  of  one  N  by  N  matrix,  two  2N  by  2N  matrices, 
and  one  3N  by  3N  matrix.  The  problem  only  increases  linearly  in  computation  time  for 
each  added  layer:  another  2N  by  2N  matrix  inversion  for  each  added  layer  of  coating. 
The  extension  to  n  layers  of  coating  partially  enclosing  the  perfect  conductor  is  straight¬ 
forward,  given  the  approach  outlined  above.  Starting  with  the  innermost  layer,  the 
Z-matrix  elements  would  be  computed  as  for  the  single  layer  case  presented  in  Ap¬ 
pendix  A.  However,  instead  of  the  surrounding  medium  being  free-space,  it  now  has 
the  permittivity  and  permeability  of  the  next  layer  of  coating.  Matrix  inversion  and 
back-substitution  proceeds  progressively  for  each  layer  of  coating  added,  with  the  per¬ 
mittivity  and  permeability  of  the  surrounding  medium  always  being  that  of  the  next 
layer  to  be  added.  This  process  is  repeated  until  the  outermost  layer  of  coating  is 
reached.  The  equivalent  electric  and  magnetic  surface  current  coefficients  of  the  out¬ 
ermost  layer  and  the  exposed  perfect  conductor  are  then  computed,  and  the  scattered 
field  is  calculated  as  discussed  previously. 

With  the  information  in  this  chapter,  Chapter  3,  and  Appendix  A,  the  approach 
to  use  for  various  combinations  of  coatings  and  layers  of  coatings  at  different  locations 
on  the  perfect  conductor  should  be  obvious.  Equivalent  interaction  matrices  which 
incorporate  the  cumulative  effects  of  the  innermost  layers  of  coatings  and  perfect  con¬ 
ductors  would  be  computed  as  described  above.  Then  the  outermost  equivalent  electric 
and  magnetic  surface  current  coefficients  would  be  calculated  by  multiplying  the  ex- 
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citation  vector  by  the  equivalent  interaction  matrix.  Finally,  the  far-field  radiation 
pattern  would  be  computed  from  the  equivalent  electric  and  magnetic  surface  currents 
for  the  outermost  surfaces.  Thus,  using  Huygens’  principle,  the  equivalence  principle, 
the  appropriate  boundary  conditions,  and  the  method  of  moments,  the  radar  cross 
section  for  coated  perfect  conductors  with  arbitrary  geometries  can  be  predicted. 


; 


I 


Figure  6.1.  Two  Layers  of  Coating  Comp 
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CONCLUSIONS  AND  SUGGESTED  FUTURE  EFFORTS 


7.1  Conclusions 

1.  In  this  thesis,  Huygens’  principle,  the  equivalence  principle,  the  appropriate  bound¬ 
ary  conditions,  and  the  method  of  moments  were  used  to  predict  the  radar  cross 
section  (RCS)  for  coated  perfect  conductors  with  arbitrary  geometries.  Experimen¬ 
tal  RCS  measurements  were  performed  on  square  aluminum  plates  coated  on  one 
side  with  radar  absorbing  material  (Chapter  4).  Theoretical  RCS  predictions  were 
generated  using  the  electric  field  integral  equation  (EFIE)  series  of  computer  pro¬ 
grams  (Chapter  3).  The  EFIE  series  of  computer  programs  gave  a  very  good  match 
between  the  experimental  RCS  measurements  and  the  theoretical  RCS  predictions 
for  a  partially  coated  plate  (Chapter  5),  considering  the  approximations  made  in  the 
theoretical  model.  Further,  once  the  equivalent  electric  and  magnetic  surface  cur¬ 
rents  have  been  computed  for  the  coated  target,  near-field  and  far-field  phenomena 
can  be  computed  and  studied. 

2.  The  matrix  equations  for  multi-layered  coatings  on  a  perfect  conductor  were  derived 
(Chapter  6),  and  the  procedure  was  discussed  to  extend  the  derivations  presented 
in  this  thesis  to  multi-layered  coatings  or  various  coatings  over  the  same  perfectly 
conducting  surface. 

3.  Some  of  the  approximations  and  limitations  of  this  approach  and  method  of  solution 
to  compute  the  radar  cross  section  prediction  for  coated  perfect  conductors  with 
arbitrary  geometries  are  the  following: 

a.  An  approximation  is  made  of  the  integration  of  the  weighting  function  over  the 
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bi-triangular  subdomain  as  its  value  at  the  centroid  of  the  triangular  patch  as  is 
shown  in  equation  (A.69)  of  Appendix  A.  This  approximation  reduces  two  numer¬ 
ical  integrations  over  every  bi-triangular  subdomain  to  just  one.  This  approxima¬ 
tion  is  made  when  the  distance  from  the  observation  triangle  to  the  source  triangle 
is  more  than  the  length  of  any  edge  of  the  observation  triangle.  If  this  criterion 
is  not  satisfied,  a  seven-point  numerical  quadrature  integration  is  performed  over 
the  bi-triangular  subdomain. 

b.  Geometry  modelling  issues: 

1.  The  sides  of  the  coating  which  meet  the  perfect  conductor  were  ignored 
in  the  model  of  the  coating  surface.  Since  the  coatings  were  thin,  this  approximation 
gave  satisfactory  results.  However,  it  might  not  be  possible  to  ignore  the  sides  of  the 
coating  if  thicker  coatings  are  used. 

2.  The  effects  of  various  triangular  patch  shapes  must  be  considered  when 
modelling  the  geometry  of  the  coated  perfect  conductor  [124]. 

3.  The  sides  of  the  coating  structure  were  ignored  since  the  triangular 
patches  became  too  elongated. 

4.  For  the  partially  coated  perfect  conductor,  there  is  a  discontinuity  of 
electric  surface  current  at  the  junction  between  the  exposed  and  the  coated  perfect 
conductor  surfaces  since  both  are  modelled  as  separate  and  distinct  surfaces. 

5.  There  is  a  compromise  between  the  size  of  the  target  used,  the  frequency 
of  the  RCS  calculations,  the  core  memory  and  magnetic  disk  storage  requirements  for 
the  Z-matrix,  and  the  computation  time  required  to  calculate  the  RCS  data.  These 
factors  must  be  considered  when  determining  how  many  triangular  patches  to  use  to 
model  the  geometry  of  a  coated  perfect  conductor. 

7.2  Suggested  Future  Efforts 

1.  Investigate  various  modellings  for  the  coatings  and  the  perfect  conductors.  One 
example  would  be  to  incorporate  the  sides  of  the  coatings  which  meet  the  perfect 
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conductor  into  the  geometry  model  while  keeping  the  edges  of  the  triangular  patches 
approximately  equal.  Another  example  would  be  to  model  the  square  plate  as  a  box. 
This  would  then  include  the  effects  of  the  finite  thickness  of  the  plate  and  satisfy 
the  condition  of  continuity  of  electric  surface  current  at  the  boundary  between  the 
exposed  and  coated  portion  of  the  perfect  conductor. 

2.  Incorporate  continuity  of  electric  surface  current  at  the  boundary  between  the  ex¬ 
posed  and  coated  portion  of  the  perfect  conductor  while  still  modelling  the  geometry 
of  each  as  separate  and  distinct  surfaces. 

3.  Investigate  the  results  for  other  numerical  quadrature  integrations  over  the  bi- 
triangular  subdomains  (see  Chapter  3). 

4.  Write  the  computer  programs  and  generate  theoretical  RCS  predictions  for  multi¬ 
layered  coatings  over  a  perfect  conductor.  Compare  to  experimental  RCS  measure¬ 
ments  for  multi-layered  coatings  over  a  metal  plate. 

5.  Incorporate  into  the  EFIE  computer  programs  the  ability  to  add  wire  antennas  to  the 
coated  perfect  conductor.  Compute  theoretical  RCS  predictions  with  wire  antennas 
added,  and  compute  radiation  patterns  for  the  wire  antennas  near  an  uncoated  and 
a  coated  perfect  conductor.  Compare  the  results. 

6.  Incorporate  into  the  EFIE  computer  programs  the  ability  to  compute  the  RCS  for 
coatings  with  rough  surfaces. 

7.  Incorporate  into  the  EFIE  computer  programs  the  ability  to  compute  the  RCS  for 
anisotropic  coatings. 


References 


89 


REFERENCES 

Radar  Cross  Section . 90 

Geometrical  Optics . 92 

Physical  Optics . 92 

Geometrical  Theory  of  Diffraction . 92 

Physical  Theory  of  Diffraction . 93 

Uniform  Theory  of  Diffraction . 93 

Uniform  Asymptotic  Theory  of  Diffraction . 94 

Method  of  Moments . 94 

Hybrid  Methods . 97 

Surface  Modeling . 98 

Treated  Targets . 99 

Miscellaneous . 100 


It> 


References  90 

Radar  Cross  Section 


1.  Dedrick,  K.  G.,  A.  R.  Hessing,  and  G.  L.  Johnson  (1978),  Bistatic  radar  scattering 
by  randomly  oriented  wires,  IEEE  Trans.  Ant.  Prop.,  AP-26,  420-426. 

2.  Fante,  R.  L.  (1984),  Short- wavelength  target  modeling,  IEEE  Trans.  Ant.  Prop., 
AP-32,  105-111. 

3.  Glaser,  J.  I.  (1985),  Bistatic  RCS  of  complex  objects  near  forward  scatter,  IEEE 
Trans.  Aero.  Electron.,  AES-21,  70-78. 

4.  Glisson,  A.  W.  (1984),  An  integral  equation  for  electromagnetic  scattering  from 
homogeneous  dielectric  bodies,  IEEE  Trans.  Ant.  Prop.,  AP-32,  173-175. 

5.  Graglia,  R.  D.  and  P.  L.  E.  Uslenghi  (1984),  Electromagnetic  scattering  from 
anisotropic  materials,  Part  I:  General  theory,  IEEE  Trans.  Ant.  Prop.,  AP-32,  867-869. 

6.  Herman,  G.  C.  and  P.  M.  van  den  Berg  (1982),  A  least-square  iterative  technique 
for  solving  time-domain  scattering  problems,  J.  Acoust.  Soc.  Am.,  72,  1947-1953. 

7.  Hodge,  D.  B.  (1980),  Scattering  by  circular  metallic  disks,  IEEE  Trans.  Ant.  Prop., 
AP-28,  707-712. 


Y. 


8.  Hwang,  Y.  M.,  L.  Peters,  Jr.,  and  W.  D.  Burnside  (1978),  Surface  current  and  charge 
density  induced  on  aircraft,  IEEE  Trans.  Electromagn.  Compat.,  EMC-20,  77-81. 

9.  Kao,  C.  C.  (1970),  Electromagnetic  scattering  from  a  finite  tubular  cylinder:  Nu¬ 
merical  solutions,  Radio  Science,  5,  617-624. 

10.  Kastner,  R.  and  R.  Mittra  (1983),  A  spectral-iteration  technique  for  analyzing 
scattering  from  arbitrary  bodies,  Part  I:  Cylinder  scatterers  with  E-wave  incidence, 
IEEE  Trans.  Ant.  Prop.,  AP-31,  499-506. 

11.  Knott,  E.  F.  (1976),  Radar  cross  section  reduction  using  cylindrical  segments,  IEEE 
Trans.  Ant.  Prop.,  AP-24,  882-884. 

12.  Knott,  E.  F.  (1977),  RCS  reduction  of  dihedral  corners,  IEEE  Trans.  Ant.  Prop., 
AP-25,  406-409. 

13.  Mautz,  J.  R.  and  R.  F.  Harrington  (1969),  Radiation  and  scattering  from  bodies 
of  revolution,  Appl.  Sci.  Res.,  20,  405-435. 

14.  Mautz,  J.  R.  and  R.  F.  Harrington  (1974),  Generalized  network  parameters,  ra¬ 
diation  and  scattering  by  conducting  bodies  of  revolution,  IEEE  Trans.  Ant.  Prop., 


References 


91 


AP-22,  630-631. 

15.  Miller,  E.  K.  and  J.  B.  Morton  (1970),  The  RCS  of  a  metal  plate  with  a  resonant 
slot,  IEEE  Trans.  Ant.  Prop.,  AP-18,  290-292. 

16.  Peterson,  A.  F.  and  R.  Mittra  (1985),  Method  of  conjugate  gradients  for  the 
numerical  solution  of  large-body  electromagnetic  scattering  problems,  J.  Opt.  Soc. 
Am.,  2,  971-977. 

17.  Mason,  J.  L.  and  W.  J.  Anderson  (1985),  Finite  element  solution  for  electromagnetic 
scattering  from  two-dimensional  bodies,  Int.  J.  Num.  Methods  Eng.,  21,  909-928. 

18.  Rahmat-Samii,  Y.  and  R.  Mittra  (1974),  Integral  equation  solution  and  RCS 
computation  of  a  thin  rectangular  plate,  IEEE  Trans.  Ant.  Prop.,  AP-22,  608-610. 

19.  Ross,  R.  A.  (1966),  Radar  cross  section  of  rectangular  flat  plates  as  a  function  of 
aspect  angle,  IEEE  Trans.  Ant.  Prop.,  AP-14,  329-335. 

20.  Ross,  R.  A.  (1967),  Scattering  by  a  finite  cylinder,  Proc.  IEE,  114,  864-868. 

21  Ruck,  G.  T.,  D.  E.  Barrick,  W.  D.  Stuart,  and  C.  K.  Krichbaum  (1970),  Radar 
Cri  Section  Handbook,  Vol.  1  and  2,  Plenum  Press,  New  York. 

22.  Saad,  Y.  and  M.  H.  Schultz  (1985),  Conjugate  gradient-like  algorithms  for  solving 
nonsymmetric  linear  systems,  Math.  Comp.,  44,  417-424. 

23.  Sarkar,  T.  K.  and  3.  M.  Rao  (1982),  An  iterative  method  for  solving  electrostatic 
problems,  IEEE  Trans.  Ant.  Prop.,  AP-30,  611-616. 

24.  Sarkar,  T.  K.  and  S.  M.  Rao  (1984),  The  application  of  the  conjugate  gradient 
method  for  the  solution  of  electromagnetic  scattering  from  arbitrarily  oriented  wire 
antennas,  IEEE  Trans.  Ant.  Prop.,  AP-32,  398-403. 

25.  Senior,  T.  B.  A.  (1965),  A  survey  of  analytical  techniques  for  cross-section  estima¬ 
tion,  Proc.  IEEE,  822-833. 

26.  Taflove,  A.,  K.  R.  Umashankar,  and  T.  G.  Jurgens  (1985),  Validation  of  FD-TD 
modeling  of  the  radar  cross  section  of  three-dimensional  sturctures  spanning  up  to  nine 
wavelengths,  IEEE  Trans.  Ant.  Prop.,  AP-33,  662-666. 

27.  Tsai,  L.  L.,  D.  G.  Dudley,  and  D.  R.  Wilton  (1974),  Electromagnetic  scattering  by 
a  three-dimensional  conducting  rectangular  box,  J.  Appl.  Phys.,  45,  4393-4400. 

28.  Van  Den  Berg,  P.  M.  (1984),  Iterative  computational  techniques  in  scattering  based 
upon  the  integrated  square  error  criterion,  IEEE  Trans.  Ant.  Prop.,  AP-32, 1063-1071. 


References 


92 


29.  Walton,  E.  K.  and  J.  D.  Young  (1984),  The  Ohio  State  University  compact  range 
cross-section  measurement  range,  IEEE  Trans.  Ant.  Prop.,  AP-32,  1218-1223. 

30.  Wang,  D.-S.  and  L.  N.  Medgyesi-Mitschang  (1985),  Electromagnetic  scattering 
from  finite  circular  and  elliptic  cones,  IEEE  Trans.  Ant.  Prop.,  AP-33,  488-497. 

31.  Yaghjian,  A.  D.  and  R.  V.  McGahan  (1985),  Broadside  radar  cross  section  of  the 
perfectly  conducting  cube,  IEEE  Trans.  Ant.  Prop.,  AP-33,  321-329. 


Geometrical  Optics 


32.  Deschamps,  G.  A.  (1985),  High  frequency  diffraction  by  wedges,  IEEE  Trans.  Ant. 
Prop.,  AP-33,  357-368. 

33.  Knott,  E.  F.  (1985),  A  progression  of  high-frequency  RCS  prediction  techniques, 
IEEE  Proceedings,  73,  252-264. 


Physical  Optics 


34.  Asvestas,  J.  S.  (1985),  Line  integrals  and  physical  optics.  Part  I.  The  transfor¬ 
mation  of  the  solid-angle  surface  integral  to  a  line  integral,  J.  Opt.  Soc.  Am.  A,  2, 
891-895. 

35.  Asvestas,  J.  S.  (1985),  Line  integrals  and  physical  optics.  Part  II.  The  conversion 
of  the  Kirchhoff  surface  integral  to  a  line  integral,  J.  Opt.  Soc.  Am.  A,  2,  896-902. 

36.  Gordon,  W.  B.  (1975),  Vector  potentials  and  physical  optics,  J.  Math.  Phys.,  16, 
448-454. 


Geometrical  Theory  of  Diffraction 


37.  Burnside,  W.  D.,  R.  C.  Rudduck,  and  R.  J.  Marhefka  (1980),  Summary  of  GTD 
computer  codes  developed  at  the  Ohio  State  University,  IEEE  Trans.  Electromagnetic 
Compatibility,  EMC-22,  238-243. 

38.  James,  G.  L.  (1976),  Geometrical  Theory  of  Diffraction  for  Electromagnetic  Waves, 
Peter  Peregrinus  Ltd.  for  IEE,  England. 

39.  Keller,  J.  B.  (1962),  Geometrical  theory  of  diffraction,  J.  Opt.  Soc.  Am.,  52, 


[ 

> r- - -  -  ■ 

ND-A17B  973  RADAR  CROSS  SECTION  PREDICTION  FOR  COATED  PERFEC1 
CONDUCTORS  MITH  ARBITRARY  QEONETRIES(U)  AIR  FORCI 
OF  TECH  HRIGHT-PATTERSON  AFB  OH  S  N  ROGERS  1986 
UNCLASSIFIED  AFIT/CI/NR-86-185T  F/G 

INST 

L7/9 

71 

1 

■ 

■  -  ■  "  i 

References 


93 


116-130. 

40.  Keller,  J.  B.  (1985),  One  hundred  years  of  diffraction  theory,  IEEE  Trans.  Ant. 
Prop.,  AP-33,  123-126. 

41.  Knott,  E.  F.  and  T.  B.  A.  Senior  (1974),  Comparison  of  three  high-frequency 
diffraction  techniques,  Proc.  IEEE,  62,  1468-1474. 

42.  Lee,  S.  H.  (1985),  Aperture  integration  and  GTD  techniques  used  in  the  NEC 
reflector  antenna  code,  IEEE  Trams.  Ant.  Prop.,  AP-33,  189-194. 

43.  Pathak,  P.  H.,  N.  Wang,  W.  D.  Burnside,  and  R.  G.  Kouyoumjian  (1981),  A 
uniform  GTD  solution  for  the  radiation  from  sources  on  a  convex  surface,  IEEE  Trans. 
Ant.  Prop.,  AP-29,  609-622. 

44.  Pathadc,  P.  H.,  W.  D.  Burnside,  and  R.  J.  Marhefka  (1980),  A  uniform  GTD 
analysis  of  the  diffraction  of  electromagnetic  waves  by  a  smooth  convex  surface,  IEEE 
Trams.  Ant.  Prop.,  AP-28,  631-642. 

45.  Plonus,  M.  A.,  R.  Williams,  and  S.  C.  H.  Wamg  (1978),  Radar  cross  section  of 
curved  plates  using  geometrical  and  physical  diffraction  techniques,  IEEE  Trams.  Ant. 
Prop.,  AP-26,  488-493. 

46.  Tiberio,  R.  and  R.  G.  Kouyoumjiam  (1979),  A  uniform  GTD  solution  for  the 
diffraction  by  strips  illuminated  at  gracing  incidence,  Radio  Science,  14,  933-941. 


Physical  Theory  of  Diffraction 


47.  Brown,  R.  T.  (1984),  Treatment  of  singularities  in  the  physical  theory  of  diffraction, 
IEEE  Trans.  Ant.  Prop.,  AP-32,  640-641. 

48.  Michaeli,  A.  (1984),  A  closed  form  physical  theory  of  diffraction  solution  for  elec¬ 
tromagnetic  scattering  by  strips  amd  90  deg  dihedrals,  Radio  Science,  19,  609-616. 


Uniform  Theory  of  Diffraction 


49.  Cashman,  J.  D.,  R.  G.  Kouyoumjiam,  amd  P.  H.  Pathak  (1977),  Comments  on 
“A  uniform  theory  of  diffraction  for  an  edge  in  a  perfectly  conducting  surface” ,  IEEE 
Trams.  Ant.  Prop. ,AP-25, 447-451. 

50.  Deschamps,  G.  A.,  J.  Boersma  amd  S.  W.  Lee  (1984),  Three-dimensional  half-plane 


diffraction:  exact  solution  and  testing  of  uniform  theories,  IEEE  Trans.  Ant.  Prop., 
AP-32,  264-271. 

51.  Michaeli,  A.,  M.  Kaye,  and  A.  Geva  (1984),  High-frequency  backscatter  from 
a  finned  cylinder  -  Comparison  of  UTD  results  with  experiment,  IEEE  Trans.  Ant. 
Prop.,  AP-32,  422-425. 


Uniform  Asymptotic  Theory  of  Diffraction 


52.  Borovikov,  V.  A.  and  B.  Ye.  Kinber  (1974),  Some  problems  in  the  asymptotic 
theory  of  diffraction,  Proc.  IEEE,  62,  1416-1437. 

53.  Lee,  S.  W.  and  G.  A.  Deschamps  (1976),  A  uniform  asympotitic  theory  of  electro¬ 
magnetic  diffraction  by  a  curved  wedge,  IEEE  Trans.  Ant.  Prop.,  AP-24,  25-34. 

54.  Lee,  S.  W.  (1977),  Comparison  of  uniform  asymptotic  theory  and  Ufimtsev’s  theory 
of  electromagnetic  edge  diffraction,  IEEE  Trans.  Ant.  Prop.,  AP-25,  162-170. 

55.  Lewis,  R.  M.  and  J.  Boersma  (1969),  Uniform  asymptotic  theory  of  edge  diffraction, 
J.  Math.  Phys.,  10,  2291-2305. 

56.  Menendez,  R.  C.  and  S.  W.  Lee  (1982),  Analysis  of  rectangular  horn  antennas  via 
uniform  asymptotic  theory,  IEEE  Trans.  Ant.  Prop.,  AP-30,  241-250. 

57.  Ott,  R.  H.  (1985),  Scattering  by  a  parabolic  cylinder  -  A  uniform  asymptotic 
expansion,  J.  Math.  Phys.,  26,  854-860. 

58.  Sanyal,  S.  and  A.  K.  Bhattacharyya  (1984),  Electromagnetic  scattering  by  a  curved 
plate  -  Solution  by  uniform  asymptotic  theory  of  diffraction,  IEEE  Trans.  Ant.  Prop., 
AP-32,  187-189. 

59.  Stamnes,  J.  J.  (1983),  Uniform  asymptotic  theory  of  diffraction  by  apertures,  J. 
Opt.  Soc.  Am.,  73,  96-109. 


Method  of  Moments 


60.  Ferguson,  T.  R.  (1975),  Banded  matrix  iteration  in  moments  problems,  IEEE  AP-S 
International  Symposium,  Univ.  of  Illinois,  Urbana,  IL,  146-149. 

61.  Ferguson,  T.  R.,  T.  H.  Lehman,  and  R.  J.  Balestri  (1976),  Efficient  solution  of 
large  moments  problems:  Theory  and  small  problem  results,  IEEE  Trans.  Ant.  Prop., 


AP-24,  230-235. 


62.  Ferguson,  T.  R.  and  R.  J.  Baletri  (1976),  Solution  of  large  wire  grid  moments  prob¬ 
lems,  IEEE  International  Symposium  on  Elecromagnetic  Compatibility,  Wash.  D.C., 
290-294. 

63.  Glisson,  A.  W.  and  D.  R.  Wilton  (1980),  Simple  and  efficient  numerical  methods 
for  problems  of  electromagnetic  radiation  and  scattering  from  surfaces,  IEEE  Trans. 
Ant.  Prop.,  AP-28,  593-603. 

64.  Harrington,  R.  F.  (1968),  Field  Computation  by  Moment  Methods,  The  Macmillan 
Company,  New  York. 

65.  Heath,  G.  E.  and  D.  B.  Miron  (1984),  Comments  on  ‘The  singular  integral  problem 
in  surfaces’,  IEEE  Trans.  Ant.  Prop.,  AP-32,  428-430. 

66.  Klein,  C.  and  R.  Mittra  (1973),  Stability  of  matrix  equations  arising  in  electro¬ 
magnetics,  IEEE  Trans.  Ant.  Prop.,  AP-21,  902-905. 

67.  Klein,  C.  and  R.  Mittra  (1975),  An  application  of  the  “condition  number”  con¬ 
cept  to  the  solution  of  scattering  problems  in  the  presence  of  the  interior  resonant 
frequencies,  IEEE  Trans.  Ant.  Prop.,  431-435. 

68.  Knepp,  D.  L.  and  J.  Goldhirsh  (1972),  Numerical  analysis  of  electromagnetic 
radiation  properties  of  smooth  conducting  bodies  of  arbitrary  shape,  IEEE  Trans.  Ant. 
Prop.,  AP-20,  383-388. 

69.  Mautz,  J.  R.  and  R.  F.  Harrington  (1979),  A  combined-source  solution  for  radiation 
and  scattering  from  a  perfectly  conducting  body,  IEEE  Trans.  Ant.  Prop.,  AP-27,  445- 
454. 

70.  Medgyesi-Mitschang  and  D.  Cowdrick  (1980),  RCS  prediction  techniques  for  missile¬ 
shaped  bodies  in  the  resonance  and  intermediate  frequency  regions,  Presented  at  the 
Radar  Camuflage  Symposium,  Orlando,  FL,  18-20  November,  1980. 

71.  Medgyesi-Mitschang,  L.  N.  and  C.  Eftimiu  (1979),  Scattering  from  axisymmetric 
obstacles  embedded  in  axisymmetric  dielectrics:  the  method  of  moments  solution,  Appl. 
Phys.,  19,  275-285. 

72.  Medgyesi-Mitschang,  L.  N.  and  C.  Eftimiu  (1982),  Scattering  from  wires  and  open 
circular  cylinders  of  finite  length  using  entire  domain  Galerkin  expansions,  IEEE  Trans. 
Ant.  Prop.,  AP-30,  628-636. 

73.  Medgyesi-Mitschang,  L.  N.  and  J.  M.  Putnam  (1984),  Electromagnetic  scattering 


References 


96 


from  axially  inhomogeneous  bodies  of  revolution,  IEEE  Trans.  Ant.  Prop.,  AP-32, 
797-806. 

74.  Miron,  D.  B.  (1983),  The  singular  integral  problem  in  surfaces,  IEEE  Trans.  Ant. 
Prop.,  AP-31,  507-509. 

75.  Mittra,  R.  ed.  (1973),  Computer  Techniques  for  Electromagnetics,  Pergamon  Press, 
New  York. 

76.  Mittra,  R.  ed.  (1975),  Numerical  and  Asymptotic  Techniques  in  Electromagnetics, 
Springrer-Verlag,  New  York. 

77.  Mittra,  R.  and  C.  A.  Klien  (1975),  The  use  of  pivot  ratios  as  a  guide  to  stability  of 
matrix  equations  arising  in  the  method  of  moments,  IEEE  Trans.  Ant.  Prop.,  AP-23, 
448-450. 

78.  Moore,  J.  and  R.  Pizer  (1984),  Moment  Methods  in  Electromagnetics:  Techniques 
and  Applications,  John  Wiley  &  Sons,  Inc.,  Research  Studies  Press  LTD. 

79.  Pogorzelski,  R.  J.  (1985),  The  Ludwig  integration  algorithm  for  triangular  subre¬ 
gions,  IEEE  Proc.,  73,  837-838. 

80.  Rao,  S.  M.,  A.  W.  Glisson,  D.  R.  Wilton,  and  B.  S.  Vidula  (1979),  A  simple 
numerical  solution  procedure  for  statics  problems  involving  arbitrary-shaped  surfaces, 
IEEE  Trans.  Ant.  Prop.,  AP-27,  604-608. 

81.  Rao,  S.  M.,  D.  R.  Wilton,  and  A.  W.  Glisson  (1982),  Electromagnetic  scattering 
by  surfaces  of  arbitrary  shape,  IEEE  Trans.  Ant.  Prop.,  AP-30,  409-418. 

82.  Richmond,  J.  H.  (1966),  A  wire-grid  model  for  scattering  by  conducting  bodies, 
IEEE  Trans.  Ant.  Prop.,  AP-14,  782-786. 

83.  Sarkar,  T.  K.  (1985),  A  note  on  the  choice  weighting  functions  in  the  method  of 
moments,  IEEE  Trans.  Ant.  Prop.,  AP-33,  436-441. 

84.  Sarkar,  T.  K.  (1983),  A  note  on  the  variational  method  (Rayleigh-Ritz),  Galerkin’s 
method,  and  the  method  of  least  squares,  Radio  Science,  18,  1207-1224. 

85.  Sarkar,  T.  K.,  K.  R.  Siarkiewicz,  and  R.  F.  Stratton  (1981),  Survey  of  numeri¬ 
cal  methods  for  solution  of  large  systems  of  linear  equations  for  electromagnetic  field 
problems,  IEEE  Trans.  Ant.  Prop.,  AP-29,  847-856. 

86.  Tsai,  L.  L.  and  C.  E.  Smith  (1978),  Moment  methods  in  electromagnetics  for 
undergraduates,  IEEE  Trans.  Education,  E-21,  14-22. 


References 


97 


87.  Wilton,  D.  R.  and  S.  Govind  (1977),  Incorporation  of  edge  conditions  in  moment 
method  solutions,  IEEE  Trans.  Ant.  Prop.,  AP-25,  845-850. 

88.  Yaghjian,  A.  D.  (1981),  Augmented  electric-  and  magnetic-field  integral  equations, 
Radio  Science,  16,  987-1001. 


Hybrid  Methods 


89.  Burnside,  W.  D.,  C.  L.  Yu,  and  R.  J.  Marhefka  (1975),  A  technique  to  combine  the 
geometrical  theory  of  diffraction  and  the  moment  method,  IEEE  Trans.  Ant.  Prop., 
AP-23,  551-558. 

90.  Davidson,  S.  A.  and  G.  A.  Thiele  (1984),  A  hybrid  method  of  moments  -  GTD 
technique  for  computing  electromagnetic  coupling  between  two  monopole  antennas  on 
a  large  cylindrical  surface,  IEEE  Trans.  Elec.  Com.,  EMC-26,  90-97. 

91.  Ekelman,  E.  P.  and  G.  A.  Thiele  (1980),  A  hybrid  technique  for  combining  the 
moment  method  treatment  of  wire  antennas  with  the  GTD  for  curved  surfaces,  IEEE 
Trans.  Ant.  Prop.,  AP-28,  831-839. 

92.  Henderson,  L.  W.  and  G.  A.  Thiele  (1982),  A  hybrid  MM-Geometrical  Optics 
technique  for  the  treatment  of  wire  antennas  mounted  on  a  curved  surface,  IEEE  Trans. 
Ant.  Prop.,  AP-30,  1257-1261. 

93.  Kim,  T.  J.  and  G.  A.  Thiele  (1982),  A  hybrid  diffraction  technique  -  general  theory 
and  applications,  IEEE  Trans.  Ant.  Prop.,  AP-30,  888-897. 

94.  Ko,  W.  L.  and  R.  Mittra  (1977),  A  new  approach  based  on  a  combination  of  integral 
equation  and  asymptotic  techniques  for  solving  electromagnetic  scattering  problems, 
IEEE  Trans.  Ant.  Prop.,  AP-25,  187-197. 

95.  Li,  S.  Z.  and  G.  A.  Thiele  (1984),  A  hybrid  theory  of  diffraction  for  the  RCS 
calculation  of  ogive-like  bodies,  Radio  Science,  19,  1432-1438. 

96.  Sahalos,  J.  N.  and  G.  A.  Thiele  (1981),  On  the  application  of  the  GTD-MM 
technique  and  its  limitations,  IEEE  Trans.  Ant.  Prop.,  AP-29,  780-786. 

97.  Thiele,  G.  A.  and  T.  H.  Newhouse  (1975),  A  hybrid  technique  for  combining 
moment  methods  with  the  geometrical  theory  of  diffraction,  IEEE  Trans.  Ant.  Prop., 
AP-23,  62-69. 


98.  Thiele,  G.  A.  and  G.  K.  Chan  (1978),  Application  of  the  hybrid  technique  to  time 
domain  problems,  IEEE  Trans.  Elec.  Comp.,  EMC-20,  151-155. 


References 


98 


Surface  Modeling 


99.  Kuo,  D.  C.,  H.  H.  Chao,  J.  R.  Mautz,  B.  J.  Strait,  and  R.  F.  Harrington  (1972), 
Analysis  of  radiation  and  scattering  by  arbitrary  configurations  of  thin  wires,  IEEE 
Trans.  Ant.  Prop.,  AP-20,  814-815. 

100.  Lee,  K.  S.  H.,  L.  Martin,  and  J.  P.  Castillo  (1976),  Limitations  of  wire-grid 
modeling  of  a  closed  surface,  IEEE  Trans.  Electromagnetic  Compatibility,  EMC-18, 
123-129. 

101.  Newman,  E.  H.  and  D.  M.  Pozar  (1978),  Electromagnetic  modeling  of  composite 
wire  and  surface  geometries,  IEEE  Trans.  Ant.  Prop.,  AP-26,  784-789. 

102.  Newman,  E.  H.  and  D.  M.  Pozar  (1979),  Correction  to  “Electromagnetic  modeling 
of  composite  wire  and  surface  geometries”,  IEEE  Trans.  Ant.  Prop.,  AP-27,  570. 

103.  Newman,  E.  H.  and  D.  M.  Pozar  (1980),  Considerations  for  efficient  wire /surface 
modeling,  IEEE  Trans.  Ant.  Prop.,  AP-28,  121-125. 

104.  Newman,  E.  H.  and  P.  Tulyathan  (1982),  A  surface  patch  model  for  polygonal 
plates,  IEEE  Trans.  Ant.  Prop.,  AP-30,  588-593. 

105.  Newman,  E.  H.,  P.  Alexandropoulos,  and  E.  K.  Walton  (1984),  Polygonal  plate 
modeling  of  realistic  structures,  IEEE  Trans.  Ant.  Prop.,  AP-32,  742-747. 

106.  Schaubert,  D.  H.,  D.  R.  Wilton,  and  A.  W.  Glisson  (1984),  A  tetrahedral  modeling 
for  electromagnetic  scattering  by  arbitrarily  shaped  inhomogeneous  dielectric  bodies, 
IEEE  Trans.  Ant.  Prop.,  AP-32,  77-85. 

107.  Singh,  J.  and  A.  T  Adams  (1979),  A  nonrectangular  patch  model  for  scattering 
from  surfaces,  IEEE  Trans.  Ant.  Prop.,  AP-27,  531-535. 

108.  Wang,  J.  J.  H.  (1978),  Numerical  analysis  of  three-dimensional  arbitrary-shaped 
conducting  scatterers  by  trilateral  surface  cell  modelling,  Radio  Science,  13,  947-952. 

109.  Wang,  J.  J.  H.  and  C.  J.  Drane  (1982),  Numerical  analysis  of  arbitrarily  shaped 
bodies  modeled  by  surface  patches,  IEEE  Trans.  Micro.  Theo.  Tech.,  MTf-30,  1167- 
1173. 


110.  Wilton,  D.  R.,  S.  M.  Rao,  A.  W.  Glisson,  D.  H.  Schaubert,  O.  M.  Al-Bundak  and 
C.  M.  Butler  (1984),  Potential  integrals  for  uniform  and  linear  source  distributions  on 
polygonal  and  polyhedral  domains,  IEEE  Trans.  Ant.  Prop.,  AP-32,  276-281. 


* — 


1 


References  99 


Treated  Targets 


111.  Harrington,  R.  F.  and  J.  R.  Mautz  (1975),  An  impedance  sheet  approximation 
for  thin  dielectric  shells,  IEEE  Trans.  Ant.  Prop.,  AP-23,  531-534. 

112.  Hatakeyama,  K.  and  T.  Inui  (1984),  Electromagnetic  wave  absorber  using  ferrite 
absorbing  material  dispersed  with  short  metal  fibers,  IEEE  Trans.  Magentics,  MAG-20, 
1261-1263. 

113.  Hiatt,  R.  E.,  K.  M.  Siegel,  and  H.  Weil  (1960),  Forward  scattering  by  coated 
objects  illuminated  by  short  wavelength  radar,  Proc.  IRE,  1630-1635. 

114.  Hiatt,  R.  E.,  K.  M.  Siegel,  and  H.  Weil  (1960),  The  ineffectiveness  of  absorbing 
coatings  on  conducting  objects  illuminated  by  long  wavelength  radar,  Proc.  IRE,  1636- 
1642. 

115.  Iskander,  K.  A.,  L.  Shafai,  A.  Frandsen,  and  J.  E.  Hensen  (1982),  Application 
of  impedance  boundary  conditions  to  numerical  solution  of  corrugated  circular  horns, 
IEEE  Trans.  Ant.  Prop.,  AP-30,  366-372. 

116.  Knott,  E.  F.  (1979),  The  thickness  criterion  for  single-layer  radar  absorbents, 
IEEE  Trans.  Ant.  Prop.,  AP-27,  698-701. 

117.  Medgyesi-Mitschang,  L.  N.  and  J.  M.  Putnam  (1985),  Integral  equation  formula¬ 
tion  for  imperfectly  conducting  scatterers,  IEEE  Trans.  Ant.  Prop.,  AP-33,  206-214. 

118.  Newman,  E.  H.  and  M.  R.  Schrote  (1984),  An  open  surface  integral  formulation 
for  electromagnetic  scattering  by  material  plates,  IEEE  Trans.  Ant.  Prop.,  AP-32, 
672-678. 

119.  Newman,  E.  H.  and  M.  R.  Schrote  (1983),  On  the  current  distribution  for  open 
surfaces,  IEE  Trans.  Ant.  Prop.,  AP-31,  515-518. 

120.  Rogers,  J.  R.  (1985),  On  combined  source  solutions  for  bodies  with  impedance 
boundary  conditions,  IEEE  Trans.  Ant.  Prop.,  AP-33,  462-465. 

121.  Senior,  T.  B.  A.  (1960),  Impedance  boundary  conditions  for  imperfectly  conduct¬ 
ing  surfaces,  Appl.  Sci.  Res.,  Sec.  B.,  8,  418-436. 

122.  Senior,  T.  B.  A.  (1981),  Approximate  boundary  conditions,  IEEE  Trans.  Ant. 
Prop.,  AP-29,  826-829. 

123.  Senior,  T.  B.  A.  (1985),  Combined  resistive  and  conductive  sheets,  IEEE  Trans. 
Ant.  Prop.,  AP-33,  577-579. 


References 


100 


Miscellaneous 

124.  Kiang,  J.  (1985),  Applications  of  Moment  Method  to  Solve  Problems  of  Scattering 
by  Arbitrarily  Shaped  Bodies,  Masters  Thesis,  Massachusetts  Institute  of  Technology. 

125.  Hammer,  P.  C.,  O.  P,  Marloue,  and  A.  H.  Stroud  (1956),  Numerical  integration 
over  simplexes  and  cones,  Math.  Tables  Aids  Comp.,  vol.  10,  pp.  130-137. 

126.  Abramowitz,  M.  and  I.  A.  Stegun  (1972),  Handbook  of  Mathematical  Functions, 
Dover  Publications,  New  York. 

127.  Van  Bladel  (1964),  Electromagnetic  Fields,  McGraw-Hill,  New  York. 

128.  Kong,  J.  A.  (1984),  6.632  Course  Notes  for  Advanced  Electromagnetics  course 
taught  at  the  Massachusetts  Institute  of  Technology. 


Appendices 


APPENDICES 


Appendix  A.  Derivation  of  Governing  Equations .  . 

A.l  Introduction . 

A.2  Completely  Coated  Perfect  Conductor . 

A.  3  Partially  Coated  Perfect  Conductor . 

Appendix  B.  Description  of  Computer  Programs . 

B. l  Introduction . 

B.2  Program  Description . 

B. 3  Flowchart  of  Computer  Programs . 

Appendix  C.  Seven-Point  Numerical  Integration  Over  Triangular  Subdomains 

C. l  Introduction . 

C.2  Integration  of  L±  df'p ±  and  fT±  df . 

C.3  Integration  of  fT±  df 'p±  x  -  ^)(1  -  ik0Rt)^^t . 

Appendix  D.  EFIE2PC  Computer  Program . 

Appendix  E.  Radar  Cross  Section  Measurements  and  Predictions . 

E.l  Introduction . 

E.2  Experimental  Radar  Cross  Section  Measurements . 

E.3  Theoretical  Radar  Cross  Section  Predictions . 


Appendix  A.  Derivation  of  Governing  Equations 


102 


APPENDIX  A 

DERIVATION  OF  GOVERNING  EQUATIONS 


A.l  Introduction 


This  appendix  contains  a  derivation  of  the  governing  equations  for  the  method 
of  moments  applied  to  the  radar  cross  section  prediction  for  coated  perfect  conductors 
with  arbitrary  geometries.  The  equations  for  the  interaction  matrices  are  derived  using 
the  equivalence  principle,  Huygens’  principle,  the  appropriate  boundary  conditions,  and 
the  method  of  moments.  The  derivation  of  the  equations  for  the  interaction  matrix  of 
a  completely  coated  perfect  conductor  is  presented  first,  followed  by  the  derivation  of 
the  equations  for  the  interaction  matrix  of  a  partially  coated  perfect  conductor. 

A. 2  Completely  Coated  Perfect  Conductor 

This  section  contains  the  derivation  of  the  equations  for  the  interaction  matrix  of 
a  completely  coated  perfect  conductor.  e_tw<  is  suppressed  in  the  following  derivation. 
This  corresponds  to  a  time  harmonic  solution  at  a  single  frequency.  Refer  to  Figures 
3.1  and  3.2  as  a  reference  for  the  following  derivation. 

Since  the  boundary  surfaces  of  the  coated  target  will  be  replaced  by  an  equivalent 
set  of  surface  currents  using  the  equivalence  principle,  the  dyadic  Green’s  function  in 
an  unbounded  medium  can  be  used.  The  dyadic  Green’s  function  in  an  unbounded 
medium  [128]  is  defined  as 


C(f,f')  =  (/  +  ivvi,(f,f') 


M-l) 


where  g  is  the  scalar  Green’s  function  defined  as 
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9{r,r  )  = 


eik\f-r 


47r| r  —  f  |  ’ 

In  region  0,  the  free  space  outside  the  object, 


Go  =  [/  +  Aw]*,(f,r) 

Ko 

where 


9o  = 


e»*o|?-?  \ 

4tt  1  f  —  r 


and 


ko  =  Uy/P  0£0. 

In  region  1,  the  coating  on  the  perfect  conductor, 

5i  =  P+ Aw]9l(f,f') 

where 


and 

and  p  and  e  can  be  complex. 
At  surface  Si: 


9 1  = 


4ir\r  —  r 


k  i  =  Uy/pe 


nQ  x  Eo  =  -rii  x  E\ 


and,  therefore,  by  the  equivalence  principle 
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no  x  H o  =  —  hi  x  Hi 

and,  therefore,  by  the  equivalence  principle 


J  i 


At  surface  S2: 


n 2  x  Ei  —  0 


and 


fl2  x  H\  =  J2. 


Using  Huygens’  principle  (see  equation  3.1)  in  Region  0: 


L 


E 0  =  Einc  +  Ea  =  Einc  +  /  dSi{iupoGo  •  J 1  —  V  x  Go  •  Afi} 


and 


Hq  —  H inc  +  H a  —  Hinc  +  J  dSi{iu>(oGo  ■  M 1  +  V  x  Go  ■  J 1}. 

Js  , 

Using  Huygens’  principle  in  Region  1: 


i?!  —  I  dSi{iuj pG  1  '  J 1  —  V  x  Gi  •  M j }  -t*  f  dS2{tuspG j  •  J 2 } 

JSi  Js, 


and 


Hi  =  f 

JSi 


dS\{ibJtG  1  •  A/ ^  -j- V  x  Cj  •  JJ  +  /  ^5*2 { V  x  Gi  *  J 2 }• 


/, 


Applying  the  boundary  conditions  at  surface  Si: 
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Therefore,  at  Si 


ho x Einc  +  no  x  /  dSi{iupoGo  •  Ji  —  V  x  Go  *  Mi}  = 

JSi 

I  dSi{iupGi  -  J i  —  V  x  Gi  *Mi}  +  no  x  /  dS2{iu>/iGi 
Js,  Js a 


no  x 

Also  at  Si 


no  x  .Ho  =  ho  x  Hi 


and,  therefore,  at  Si 


Hinc  +  no  X  /  d^iftWCoGo  *  Ml  +  V  X  Go  •  *7i}  = 

Js, 

I  dSi{tujeGi  •  Afj  +  V  x  Gi  •  +  fto  x  f  dS2{V  x  Gi 


nox 

ri0  x 

Now,  at  surface  S2 


U2  X  E  i  =  0. 


Therefore,  at  S2 


n2  x  /  d5i{*w/iGi  •  Ji  —  V  xG  i  •  AfJ  +  n2  x  [  dS2{tu//iGi  •  J2} 
•'s,  7s3 


Also  at  S2 


and,  therefore,  at  S2 


n2  x  H\  =  J2 


n2  x  /  d5i{ta;cGi  •  M1  +  V  x  Gj  •  <7^}  -f-  n2  x  f  d52 { V  x  Gi  •  J2}  = 
7  Si  7s3 

Using  equations  (A. 8)  and  (A.  10)  equation  (A.  18)  becomes 

— no  x  /  dS\{iwpoGo  •  Ji}  -  no  x  /  dSi{iwpGi  •  Ji}  -f  no  x  f  dSi{V 
Js  1  7Si  75i 


•  -7 2}  (A. 18) 

(A. 19) 

•  J2}(A.20) 

(A. 21) 

=  0.  (A. 22) 

(A.23) 

J 2-  (A. 24) 

x  Gq  •  M  i} 
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+»o  x  /  dSi{V  x  G\  •  M\}  +  no  x  /  dS2{iw  pG  \  •  J2}  =  ^0  x  2£»nc  (A. 25) 

•/Si  JSa 


and  equation  (A. 20)  becomes 


—no  x  j  dSi{V  x  Go  •  «/i}  —  no  x  [  d<Si{V  x  Gi  •  «/i}  —  no  x  f  dS\{iuj€oGQ  •  M 
Jsx  Js  1 

— no  x  f  dSi{iujeGi  •  A/j}  +  no  x  j  d«?2{V  x  Gi  •  J2}  =  no  x  Hinc  (A. 26) 
./Si  75, 

and  equation  (A.22)  becomes 

— n2  x  J  dS\{iu} [iG  1  •  ./i}  -|-  n2  x  /  dSi{V  x  Gj  •  Mi} 

^5,  ./s, 

+n2  x  I  dS2{iu!pG i  •  ^2}  =  0 

Js-> 


and  equation  (A.24)  becomes 

— n2  x  f  dS’i{V  x  Gi  •  J i}  —  n2  x  f  dS\{iojeGi  •  M\) 
Jsx  Jsx 

+n2  x  /  d52{V  x  Gi  •  ^2}  —  J 2  —  0. 

Js3 

Equations  (A.25),  (A.26),  and  (A.27)  axe  of  the  form 

£ll  •  Jl  +  L\2  •  M 1  +  L13  •  J2  =  no  X  Einc 


(A.27) 


(A. 28) 


(A. 29) 


£21  ■  d  1  +  L22  •  M\  +  L23  •  J 2  —  no  x 


(A. 30) 


•f/3i  *  *7 1  +  L32  •  Af  1  +  L33  •  J2  =  0 


or  the  more  compact  form 


£rll  L\2  L\3 

L21  L22  f>2Z 

L31  L32  L33 


Jj 

Mi 

J2 


f  no  X  Eine 
no  X^Hxnc 

V  0 


(A.31) 


(A. 32) 
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where 


L\\  —  —ho  x 

j 

I  dSiiu{poGo  +  pG\}' 

(A.33) 

L\i  =  no  x  J 

d5i{V  x  Go  +  V  x  Gi}* 

1 

(A.34) 

L\ 3  =  no  x  J 

dSi{iijpGi}- 

3 

(A.35) 

L2l  =  —ho  x 

j 

f  d5i{V  x  Go  +  V  x  Gi}- 
' s1 

(A.36) 

L22  =  —ho  x 

w 

[  dSiiu{eoGo  4-  £Gi}‘ 

,sl 

(A.37) 

1-23  =  ho  X  J 

dSi{v  x 

a 

(A.38) 

L31  =  —hi  x 

W 

/  dSi{iupGi}- 

'St 

(A.39) 

L32  =  hi  x  J 

dSx{V  x 

t 

(A.40) 

Lzz  =  «2  x  J 

dSi{tijjpGi }  • . 
a 

(A.41) 

=  -L21  and  if 

c  and  p  are  interchanged  Lu 

=  L22-  Further,  if 

surfaces  Sj  and  S2  are  interchanged  L13  =  -L31  and  L23  =  L32.  Equations  (A.32) 
through  (A.41)  with  the  G’s  expanded  match  Mitschang’s  derivation  [70]  in  which  he 
used  the  vector  and  scalar  potential  formulation.  Finally,  using  equation  (A.27)  and 
not  using  (A. 28)  corresponds  to  the  electric  field  integral  equation  (EFIE)  approach 
discussed  by  Rao,  Wilton,  and  Glisson  [81].  If  (A. 28)  were  used  and  (A.27)  were  not 
used,  this  would  correspond  to  the  magnetic  field  integral  equation  (MFIE)  approach. 
If  a  weighted  sum  of  the  EFIE  and  the  MFIE  are  used,  this  would  correspond  to 
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the  combined  field  integral  equation  (CFIE)  approach  discussed  by  Rogers  [120]  and 
Mitschang  et  al  [70]. 

Now  rewriting  (A.32)  as  three  distinct  equations  gives 


no  x  Eine  =  —no  x  I  dSiiu^poGo  +  fiG\}  •  J \ ho 


x  [  dS\{V  x 

JSi 


+no  x  /  dS2{tu;pGi}  • 
Js3 


Go  + V  x  Gj}* M i 


{AA2) 


ho  X  Hint  =  -ho  X 


/  dS1{V 

Js  I 


x  Go  +  V  x  Gj}  •  J i  — *  fio  x  I  dSiiu{eoGo  *+■  cGi}  •  Mi 


+no  x  f  dSz{V  x  Gj}  •  J 2 

Jsa 

0  —  —  ri2  x  j  dSi{iwpGi}  •  J 1  +  ri2  X  l  dSi{V  x  Gj}  •  Mi 

Jsx  J  Si 

+h%  x  /  dS2{tw^Gi}  •  J2 

Js2 

After  expanding  G,  (A.42),  (A. 43),  and  (A. 44)  become  (with  R=  | F  —  f'l) 


(A.43) 


(A. 44) 


+  no  x  V  x  /  dSiMi  — —  +  no  x  V  x  V 


x  V  x  / 

Jst 


dS\Mi  - — —  +  n0  x  V  x  V 
4  nR 


-i-  n0  x  /  dSitwpJ 2  —  ■—  +  no  x  V  /  d5 
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-  no  x 


—  f  _  t  1  —  C 

hoxHine  =  -n0  xVx  J  -  no  x  V  x  V  J  •  Ji)  - 

Vxf  dSih^^-noxV  xV  f  dSx^(V  h) 

JSi  4?r"  •'S!  *1 

/., 

/■  _  {*^i®  /“  .  _  .  g**» 

-  n0  x  /  dSiiueMi- — -  -  no  x  V  /  ^-^(V  •  Afi)  - — 
y5i  4ttJJ  k{  4ttj 


47ri2 

_  gikoR  f  i(J€n  /  _  \  <r»fc°* 

—  ho  x  I  dS\i<jj(.oM\  — no  x  V  /  dSi—r ^-(V  •  Mi) 

J  Si  * 0 


+  no  x  V  x  J  dS2  +  ho  x  VXV/S/S4(V'Ji)^B  (-4-46) 


4nR 

ikiR 

4tt  R 
iktR 

47r  R 


0  =  — n2  x 


J  dS\iupJi 


—  n2  x 


/•  _ r  i  _  c'^iR 

+  n2  x  V  x  j  dS\Mi  — — —  +  n2  x  V  x  V  /  d5i-j(V -  Mi)  — 
ySi  4jriE  ./$,  fcf  47ri2 


4jri2 

ifci  A 


■^3 


e 


<*iA 


+  h2  x  I  dS2iojpJ2 


+  n2 


n2  x  V  J 


ds^v  ■J*)e'klR 


4nR  yS3”'  *i 

These  three  equations  have  functions  with  the  following  form: 


47ri2 


(A.47) 


/rM  =  Ivx^)  =  i/vVx(7M^K 

Now  from  Appendix  A-l  equation  14  in  Van  Bladel  [127] 


(A. 48) 


V  x  (Afi)  =  VA  xa  +  AV  x  a 


(A. 49) 


Therefore, 


v  *  lyr^M]  =  v(T?^i )  x  •7(f')  +  (F^T)V  x  J(r  >•  (A50) 

The  second  term  on  the  right  is  zero  since  V  =  V(f),  and  thus 


i  /•  e»fc|F-F*l  i  r  _  e**|F-f| 

'W - 5 Jy x -siy x v( m-«) 


.fclf-F'l 
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which  gives 


_  1  r  _ 


(A.  52) 


and  by  duality 


=  -V  *  -  ~i  l WW  X  (v4.53) 

Using  these  results  and  the  fact  that  V  x  VA  =  0,  (A.45),(A.46),  and  (A.47) 
become 


flQ  X  Einc  —  — H-o  X  /  1 


X. 


4jt/2 


-  n0  x  V  /  dSi 


L 


tupo 


,ik0R 


-  n0  x  J 

r  _  /• 

dSit'w/xJi - —  -  n0  x  V  / 

Si  4?r“  JS 

1  K1 

+  no  x  J 

r  _  V*o£ 

dS\Mi  x  V'(- — — )  +»0  x 
s.  47ri2 ’ 

t  dS\M\  x  V'( 

/  c. 

+  no  x  J 

r  _  /• 

dS2iwpJ 2  A  ■  +  n0  x  V  / 
Sj  4ft  R  Js, 

dS^iy-7,) 

i  K1 

e»*i« 

47r.fi! 


4tt.R 


(A.54) 


_  f  _  eik0R  r  _  -t'fcifi 

hoxHinc  —  —ho  x  I  dS i J i  x  V'( - — )  —  no  x  j  dS\J i  x  V*( - ) 

Jsl  V  47Ti2  ’  JSl  4*R  ’ 

f  _ r  lQjfrt  _  ~iko  R 

-  h0  x  I  dSiiue0Mi~ — — —  no  x  V  /  dSi— g-(V  •  M i) - — 

^5!  47rit  ySi  fcg  v  '  4nR 

f  _  eiklR  f  »W  _  eikiR 

L,  -  n0  x  v/s_  ^(V  ■  «,)  — 

X  Is,  X  V'(tZr)  (‘4-55) 


-  n0  x 


0  =  -n2  x  f  dSiiu/fiJ  i  — — - —  n2  x  V  /  dSi-^fV-Ji) 

J  Si  4tt  R  JSi  k\  v  '  47ri2 

f  — — .  gifc i ^  ^  pih\R 

+  h2  x  I  dS\M\  x  V'(  ^p-)  +r»2  x  j  dS2tuipJ2 
J  Si 


-=  .  _  r  ..  -y  .«<*■" 


4?ri2 


4?ri2 


+  A,xv/  dS,'j%(V 


(A. 56) 
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The  desired  approach  at  this  point  in  the  derivation  is  to  change  these  three 
integro-differential  equations  in  the  three  unknown  surface  current  densities  into  a  ma¬ 
trix  equation  which  can  be  solved  using  inversion  techniques.  To  this  end,  the  method 
of  moments  will  be  applied  using  basis  functions  and  a  testing  procedure  developed  by 
Rao,  et  al  [81].  Now  the  basis  functions  [81]  are 


■Mf')  =  £  /./„(✓) 

n=  1 

N1 

»l(0  a  E 

n'= 1 
N" 


(A.57) 


{A.  58) 


(A. 59) 


where  n  and  n'  are  defined  over  the  surface  of  the  coating,  and  n"  is  defined  over  the 
surface  of  the  perfect  conductor  (see  Figure  3.1).  Furthermore  (see  Figure  3.5), 


/n(0  = 


f*  in  T+ 
f  in 

0:  otherwise 


r'  in  r+ 


(A.60) 


V;*/n(0=  -ia,;  ?'  in  T~ 


(A.61) 


V  0;  otherwise. 

Substituting  these  basis  functions  into  (A.54),  (A.55),  and  (A.56)  yields 

E,nt  =  -no  x  j  dSi.^o/„7„(f')^-A0x  vj  dS, ^ (V',  •  1.7. (1>))  ~ 
-  no  x  fs  dsM^)  dSl  (v;  •  1.7.1  M)  ££ 

/*  _  -ikoR  (•  pikiR 

+  n0  x  dSxK«fn.W  x  V'(-^r)  x  ^  dS\Kn> f ^{f1)  x  V'(^-) 


+  n0x  /  dS2iupLn»f „„{?)-—=■ 

JSt 

+  no  x  V  J  dS,~^(V.  ■  L... 7.»(f'))^ 


(A.62) 
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_  r  _  -ik0R  r  _  e'klR 

noXHinc  =  -no  x  Js  dSxInftf)  X  V'  (-^-)  “  *0  X  iSxInfiSf)  x  ) 


L 


ii0x  I  rf5,.W0«-„,/„,(p')^-n oxv/ 

^S,  *o 


-  n0  x 


4nR 

f  _  eiklR 

Js  dSxiwtKn' f »*(0  ‘"ox 


gik0R 

4ir  R 


+  n0  x  /  dS2l„» /„„(?)  x 

•/Sa 


4nR 


e'*‘* 

4irR 

(A.63) 


/, 


,«*iS 


0  =  -n2  x  /  dSiiupInf  -  n2  x 


1  A 

+  n2 


x  J  dS\Kn>  f  „,{?)  x  V/(^^-)  +*»2  x  J  dS2iwpLn»  f n»  (f7) 


4?ri2 


+  ft2  x  V  /  dS2‘-^{V'.  •  W„»M) 
* 


A? 


.ikiR 


4irR 


(A.64) 


By  using  Galerkin’s  method,  where  the  weighting  function  equals  the  basis  func¬ 
tion,  and  forming  the  inner  product  which  is  defined  as 


<■  f yg  >=  j sdS  f  ■  9 


(A.65) 


we  get  functions  of  the  form 


<  Eincfm  >=<  A,/m  >  +  <  V$,/m  >  (A.66) 

By  the  vector  identity  V  •  ($A)  =  A  •  V$  +  $V  ■  A,  the  second  term  in  (A.66)  can  be 
rewritten  as 


<  Vi,  fm>=  J^dSV-  (ifm,  -  j  dSi(V  •  /  J.  (-4.67) 

By  the  two-dimensional  divergence  theorem,  Js  dSV  •  A  =  §c  dl  A  •  n,  the  first  term  in 
(A.67)  vanishes  due  to  the  fact  that  the  normal  component  of  /m(r)  at  the  edges  of  S 
is  zero.  Using  (A.61),  the  remaining  integral  in  (A.67)  is  approximated  as  follows: 

! 
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[  dSi(V.-fm)=lm\±-  f  dSi-±f  dSi 
JS  L  Am  Jt+  Am  JT~  J 

=  <4*(C+)  -  *(01  U-«8) 

where  the  average  of  $  over  each  triangle  is  approximated  by  the  value  of  $  at  the 
triangle  centroid.  Similarly, 


Using  the  approach  outlined  above,  (A.62)  becomes  (with  Em  =  Einc(r%t)  and 
Rm  =  ~  ^1  where  m  is  defined  over  the  surface  of  the  coating) 


0C+ 

rm 


lm[Amn  •  +  Amn 


Pm 


+  *mn  ~  C]  (A. 70) 


where 


^*mn 


=-/, 


dSiiwpoInf  „{?) 


ikoRt 


4nRm  J  Si 
rikoR* 


-L 


dSiivpInfn[r) 


eiklRm 

4tt  Rm 


p'kiRt 


r  _  r  _ 

+  /  dSiKn'f „*(?*)  x  V'(— 5-)  +  /  dStK„. /„.(?-)  x  V'C— 

J  Si  47T/tTn  J  Si  47Txlm 

/*  _  eiktRi 

+  /  d52tw/iLn»»/n„(f/)-:— (A. 71) 
* 


4^ 


$ 


± 

mn 


dS^(V.  •/„/„(?-)) 

Ko 


e'k°Ri 
4  TT  Rm 


and 
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Similarly,  (A.63)  becomes  (with  H^i  =  Hine[r^)  and  R±,  =  |f^  —  r'|  and  where  m' 
is  defined  over  the  surface  of  the  coating) 


in,' +  i m. [Bi„  •  +  B-,n  ■  Si  +  e-,„  -  e+,„]  (A. 73) 


where 


_ ,  (■  ik0R±,  t  ik1R±/ 

B„,n  =  -/  dSilnUf1)  X  V'(— £-)  -  /  dStUf.p)  X  V'(— -£-) 


r  _  ,**<>/£,  /■ 

-  dSltue0Kn.fn,(f')—r- 
J  S\  4lrRm‘  'Si 


JkoR*,  r  eiklRl> 

*)T^r-\  dS1iuJeKn>fnl(f')e—r- 

4lr  Rm'  JS ,  4*Rn' 


+  [  dSiLn"  f ni,(r*)  x  V'( 
* 


,»*i**, 

,,e 


4irB*, 


(A.74) 


9-  =  -//s'^<v'-^7”'(f'»S; 


An  R*i, 

m 


(A- 75) 


Also,  (A.64)  becomes  (with  jR*„  =  jr^,  -  r'|  and  where  m"  is  defined  over  the  surface 
of  the  perfect  conductor) 


where 


0m..  =  In,"  Pi..  •  %  +  Cm„„  ■  Zf  + 


(A.76) 


\"n  ~  ~  I 

JSy 


dS\i<jjpInf  „{¥*) 


eiklRt" 


**Rm" 


r 

+  dSlKn,fn,(f')x  V'(— -I-) 

JS,  47r-Rm» 

f  _  cik'Rt» 

+  /  dS2iupLn»  fn»  (f*)  — — c  ~ 


(-4.77) 
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Is,  dSl  k\  ('V‘  '  4*1 

+Lds^(v‘-u"  7-m)£ 


4nR*„ 

eiklRt" 


4*Rm» 


Substituting  (A.71)  and  (A.72),  (A.70)  becomes 


+  ~2~  ’  1  /  ±dr  iu,fi°In  i^T^n  P-  -  /  dfiupln—^p^  — 

2  l  -/r*  2A£  4^J?m  yr±  2A£  4: 

+  f  df,Kn.±±rp%  x  +  [  dr’Kn.-^rp%  > 

2A±  '  4?r i?m ’  JT±  2A±/n 


+  /  dr,iu)pLn» 


In"  _±  e,fc‘fln» 
2A±/n"  4ttJ^ 


./  +  /  ,  /  ■  *n  x  e**0*"  [  .-,iup  ,  ln  eik' 

i  JT/  k>I'{±A±’4*R++JT*drklI’'(±rt)M 

'T*  *1  A*„  47Ti2+  /  \  yT±  ' 


+  4)—  -  f 

JT -*  *1  An  47ri2m  yr±(<  v  Aj/4 

Rearranging  (A. 79)  into  a  more  compact  form,  it  becomes 


U*i  ■  - 


r  *WMO  /m/n  _c±  f  ,-i- 

■  L dr  “ 


±eikoR~  i  lmln  I 
n  -R%  4nue0  ~A%~  / 


iZm  47rweo  Af 


.■V  *.  N,  A 


[#Tr 


I 


45T  4A„, 


4iru>no  A 


T*  Rm'  47rwM  A 


T  1  ^rrWn"  -C±  f  j-j  -+  _» / < 

+- ote-o-  L 


Substituting  (A.77)  and  (A.78),  (A.76)  becomes 


+  <  d?~In{±-^) - -  -  /  df'^Ln..i±^rr) 

Ur*  *?  Ai' JT±„  k\  '  A*/ 

Ut*  *?  '  *T4,r*-„  JT‘„  k\  * 

Rearranging  (A.83)  into  a  more  compact  form,  it  becomes 

n  ..  -  r  f  'Unlm"ln^ c±  f  L  *  lm"ln 

L  4lr  4An  Jr*  47rwe  An 

rs  1  _c±  f  . _/_4-  —,,etklR">". 

Kn'  t*~uFPrn"  *  L±  dT  P*'  X  V 

r  *WM  lm"ln"  _c±  /*  e'k'Rm" 

+  i""  «r-nzr'~-L  dT  ^ 
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t  f 

*>€  A^/i  Jt 


mikiR±, 


47 rue 


By  vising  the  fact  that 


'e  "*\  _  f=c± 


where  i?*  =  |f£f  —  f'j,  (A. 80)  becomes 


r  iuMO  lmln^c±  f  J=t  x±  eik°R~  i  lmln  f  J=t 

u ■  U drp’'^r±  i 555  ir  y* dr 

+  r  L  *"/**«*»  *.±  .  f  ^g=fcc*fcia”  f  *  /m/n  f  Ax'  — 

n[  4tt  4AJ  m  JT?  n  -Km  4ttwc  A^  Jt? 

+*"'  [ss •  4  *’*  *  - /)(1  - ■*^>S 

+/r-'  *  ■  4  ** x  - 0(1  -  ikiRt)S- 


lU>p  lmln"  _c±  I  j-t-±  c 

+Ln"  ~I7T7£~P™  '  /  *  dr*V'- 
L  4?r  4^n"  'T*, 

,  -*  /m/n»  f  _,eiklR™ 

±  - 5T—  /  dr  qr- 

47rwe  A*,  JT ±t  R * 


—  *  Im^n'1 


Similarly,  (A. 82)  becomes 


PC-  •  +  Bm.  ■  &■]  = 


'*  •  4  *''J x  (fS  "  0(1 ' 

4  ^  x  l?S  “f,)(1  ■ 


iw«0 


4tt  4  4 


.•tofi1,  ,•  /  / 
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and  (A.84)  becomes 
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(A.88) 


Equations  (A.86),  (A.87),  and  (A.88)  yield  a  system  of  equations  which  can  be 
written  in  the  following  form: 


/  /mr#+ .  .  £a_] 
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\Ln" 

(A. 89) 


This  equation  has  the  form  of  V  =  Z  •  I  where  V  represents  the  incident  electric  and 
magnetic  field  excitation  vector  at  the  boundary  surfaces.  I  represents  the  unknown 
electric  and  magnetic  surface  current  coefficients,  and  Z  represents  the  interaction  ma¬ 
trix  for  all  the  triangular  patches  used  to  model  the  surfaces.  The  unknown  surface 
current  coefficients  can  be  found  by  inverting  the  Z-matrix  and  multiplying  the  excita¬ 
tion  vector  by  the  inverted  Z-matrix.  The  Z-matrix  can  now  be  written  as 


fCZ  1  CZ  2  CZ3\ 

CZA  CZh  CZ6  (A.90) 

\CZ  7  CZ  8  CZ9J 


where  the  individual  elements  are 


mi  ■  ■  •  i '  i  ■  ■'  ■  1  ■■> 


\ 


4 


\ 

K 


i 


I 


■C 

« 

n 


4 

4 


122 


Appendix  A.  Derivation  of  Governing  Equations 

where  now  CZl  =*  CZlr,  CZ2  s  -CZ4r,  CZ3  cs  CZ7r,  CZ5  «  CZ5r,  CZ6  =s  -CZ8T, 
and  CZ9  cs  CZ9T.  Finally,  multiplying  the  middle  set  of  equations  by  -1  yields  a 
symmetric  Z-matrix: 


-U'  +  Bm. 


CZl  CZ2  CZZ\  f  In 
CZ4  CZ5  CZ6  Kn< 


(A.105) 


CZl  CZS  CZ9J  \Ln» 


where  the  individual  elements  are 
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(A.  106) 
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(A. 108) 
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CZ7  = 
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1  im'dn'  _c± 


4tt  4A*, 


lE~Pr, 


f  4  ^  x  (4*  -  f'Hi  - 

«/r*  j 


(A. 113) 
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(A. 114) 


A  symmetric  matrix  can  be  inverted  by  techniques  such  as  border  inversion  or  LU 
decomposition.  For  border  inversion  the  entire  matrix  does  not  have  to  reside  in  core 
memory  at  the  same  time.  This  can  be  important  for  coated  targets  of  any  appreciable 
dimension  with  respect  to  wavelength  since  the  size  of  the  Z-matrix  will  be  very  large. 
Equations  (A.  106)  through  (A.  114)  represent  the  symmetric  Z-matrix  as  computed  by 
program  EFIE2C.FOR  (see  Appendix  B). 


A.3  Partially  Coated  Perfect  Conductor 


This  section  contains  the  derivation  of  the  equations  for  the  interaction  matrix 
of  a  partially  coated  perfect  conductor.  The  derivation  of  the  governing  equations 
for  this  interaction  matrix  follows  the  same  approach  as  that  presented  above  for  the 
completely  coated  perfect  conductor.  Refer  to  Figure  3.3  as  a  reference  for  the  following 
derivation. 

Using  Huygens’  principle  (see  equation  3.1)  in  Region  0: 


Eq  —  Einc  +  E 


—  Einc  +  /  dS\  {iw/ioGo  •  J i  —  V  x  Go  •  Af  j  J 

JSx 

+  I  dS2{iwpoGo  ’  J 2} 

Js a 


i 


(A. 115) 
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and 


Ho  =  Hinc  +  Ha 


—  H{nc  +  I  dSi{iueoGo  -Mi  +  V  x  Go  •  Ji} 
Jsx 

-+•  [  d5j{V  x  Go  •  J 2}. 

Js2 

Using  Huygens’  principle  in  Region  1: 


and 


no  x  E0  =  no  x  E\. 


Therefore,  at  Si 


(A.116) 


Ei  —  j  dSi{iu)pGi  •  J 1  —  V  x  G\  •  M j}  +  f  dS3{iupG  1  •  J3}  (A. 117) 

JSl  J  Si 


Hi  —  j  dSi{iueGi  •  +  V  x  Gi  •  J 1}  +  f  dS3{V  x  Gi  •  J3}.  (A. 118) 

JSx  Js» 

Applying  the  boundary  conditions  at  surface  Si: 


(A. 119) 


no  X  Hinc  +  no  x  /  dSi{%{jjpoGo  •  J 1  —  V  x  Go  •  Afi}  +  no  x  I  dS2{iojpoGo  •  J 2} 
JSX  Js , 

=  n0  x  /  dSi{tw(iGi-Ji-V  xGi-Mj) 

Jsl 

+  n0x  /  dSzfapGi  J3}.  (A.120) 

J  5a 


Also  at  Si 


h0  x  Hq  =  h0  x  Hx 


(A. 121) 


and,  therefore,  at  Si 
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Now,  at  surface  S2 


n.2  x  Eq  =  0. 


Therefore,  at  S2 
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Now,  at  surface  S3 
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'Si  'S3 

This  yields  four  equations  in  four  unknowns:  J 

Using  equations  (A.8)  and  (A.10),  equation  (A. 120)  becomes 
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Go  •  J2} 

(A. 122) 

(A. 123) 

•  J2}  =  0. 
(A. 124) 

(A. 125) 

(A. 126) 


(A. 127) 


and  equation  (A.  122)  becomes 
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no  x  H\nc  —  ~ho  x  I  dSi{iueoGo  •  M\  +  {V  x  Go  • «/ 1} 

JSj 

—  no  x  /  dS^V  x  Go  • «/ 2} 

Js2 

—  ho  x  I  dS\{iueGx  •  Mi  +  V  x  Gi  • «/ 1} 

Jsx 

+  no  x  f  dS3{V  x  Gi  •  J3} 
and  equation  (A.  124)  becomes 


(A. 128) 


ft 2  X  Einc  —  n2  X 

and  equation  (A.  126)  becomes 


I  dS\{i(jjpoGo  •  J 1  —  V  x  Go  ■  Af  1}  —  n2  x  I  dS2{iwpoGo  •  J 2} 
Jsx  Js a 

(A. 129) 


0  =  — h3  x  f  dS\{iwpG  1  •  —  V  x  G\  •  Afi}  +  #13  x  f  dS3{iwfiGi  •  J 3}.  (A. 130) 

Jsx  Js3 

Equations  (A.127)  through  (A. 130)  are  of  the  form 


£11  •  J 1  +  L\2 -Mi+Li3-J2  +  L\\  •  J  3  —  ho  x  Einc  (A. 131) 

L21  ’  j  1  +  L22  '  M 1  +  L23  •  J 2  +  L24  •  J 3  =  ho  X  Hinc  (A. 132) 

£31  '  J 1  +  £32  ’  A/ 1  +  L33  •  .7 2  +  ^34  ‘  J3  —  ft2  X  Einc  (A. 133) 

L\\  •  J 1  +  L42  •  A/i  +  L43  •  ^2  +  £44  • «/ 3  =  0  (A. 134) 

or  the  more  compact  form 

( L\i  L12  L\3  Lu\  /  Jj  \  /hoXEinc\ 

L21  L22  L23  L24  J  Mi  _  I  ho  x  Hinc  J  fA  135i 

L31  L32  L33  L34  I  j_2  I  ft2  X_Etnc  J 

V  L41  L42  L43  L44  J  V  J 3  /  V  0  / 


t  • Ue  ktLri 
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L\\  =  —no  x  J 
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(A. 136) 
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(A. 137) 
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(A. 139) 
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Si 
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L24  =  no  x  / 
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di?3{V  x  Gx}* 

(A. 143) 
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(A. 144) 

L32  =  n2  x  1 

JSi 

(iSi^V  x  Go}- 

(A. 145) 

L33  =  —  n2  x  j 

f  dS2{iwpoGo}‘ 

Si 

(A. 146) 
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(A. 147) 

L4X  =  —hz  x  j 

f  dSi{iupGi}' 

Si 

(A. 148) 
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Z>42  =  »3  X 
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f— 1 
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. _ CO 

(A. 149) 
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Ol 

(A. 150) 

Z>44  =  hz  x 

[  dSz{iupGx}  • . 

's8 

(A. 151) 

Note  that  L12  =  -L21  and  if  e  and  p  are  interchanged  Ln  =  L22-  Further,  if 
surfaces  Si  and  S2  are  interchanged  L13  =  L31  and  L23  =  -L32.  Also,  if  surfaces  Si 
and  S3  are  interchanged  L24  =  L42  and  L14  =  -L41.  Finally,  this  approach  corresponds 
to  the  electric  field  integral  equation  (EFIE)  approach  discussed  by  Rao,  Wilton,  and 
Glisson  [81].  If  the  boundary  conditions  on  the  tangential  magnetic  field  at  the  surface 
of  the  perfect  conductors  had  been  used,  this  would  correspond  to  the  magnetic  field 
integral  equation  (MFIE)  approach,  and  if  a  weighted  sum  of  the  EFIE  and  MFIE 
had  been  ’sed,  this  would  correspond  to  the  combined  field  integral  equation  (CFIE) 
approach  [70,120]. 

Now  rewriting  (A.  135)  as  four  distinct  equations,  as  done  previously  for  the 
completely  coated  perfect  conductor,  gives 


no 
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-n0  x  / 
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i  J& 

-  h0  x 

Js 

eikoR 

dS2J2  x  V'(  ^ R  )  +  n0  x  j 

f  dS3J3  x  V'(^-)  (A. 153) 
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dSiiupJi* 


°~  "3  X  Is, - '"‘4 xR 


-  »3  X  V 


+  n3x  J  dSsiupJ^ 


S3 


ikiR 

AtrR 


tup,  -  ,eik'R 

dSllq{v'Jl>^R 


+  *,xv/jS3^.J,)^  (X155) 


where  R  =  |f  —  f'|. 

The  desired  approach  at  this  point  in  the  derivation  is  to  change  these  four 
integro-differential  equations  in  the  four  unknown  surface  current  densities  into  a  matrix 
equation  which  can  be  solved  using  inversion  techniques.  To  this  end  the  method  of 
moments  will  be  applied  using  the  basis  functions  as  defined  previously  in  equations 
(A.60)  and  (A.61).  Now  the  basis  functions  [81]  are 

N 

7,(f-)  *  £  /„/„(?-)  (A.  156) 

n=  1 
N* 

Mi(f')  =  Y.  (-4157) 

n'  =  1 
N" 

Mf’)  =  Y  L-"7^tn 


(A. 158) 
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N'" 

Jl[r)  =  Y.  (^.159) 

n'"  =  1 

where  n  and  n'  are  defined  over  the  surface  of  the  coating,  n"  is  defined  over  the 
surface  of  the  exposed  perfect  conductor,  and  n'"  is  defined  over  the  surface  of  the 
coated  perfect  conductor  (see  Figure  3.3). 

Substituting  these  basis  functions  into  (A.  152)  through  (A.  155)  yields 
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f  —  gikoR  r  _  i 

+  h2x  dSXKn.fn.{' *)  X  V'(— )  -  »2  X  Js  dS2iufx0Ln»fn»{f')- 


ik0R 


-ni  xV  f  dS^(V.-L„..f„„ (✓)) 

J  S-2  KCl 


„tk0R 


*3 


47T  R 


47r  R 
(A.162) 


L 


,ikiR 


0=-A3x  /o  dSlm^„fn(f‘Y—-h3xvj^iSl^(V'.-Infn(r'))^R 


tup 


gik.R 
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,ikxR 


47ri2 

(A.163) 


By  using  Galerkin’s  method,  where  the  weighting  function  equals  the  basis  func¬ 
tion,  and  forming  the  inner  product,  which  is  defined  as 


<  f,3  >=  f  dSf-g 
Js 


(A. 164) 


we  again  get  functions  of  the  form 


<  Eincifm  >  —  <  A,fm  >  +  <  V$,/m  > 


(A.165) 


Following  the  same  approach  as  previously  discussed  for  the  completely  coated  perfect 
conductor,  (A.  160)  becomes  (with  E ^  =  " 
is  defined  over  the  surface  of  the  coating) 


conductor,  (A.160)  becomes  (with  E*  =  £irlc(f^)  and  R±  =  |f^=  -  f  \  and  where  m 


Pm 


+  1 


mn  xmnJ 


(A. 166) 


where 
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4wR± 


m 

+  J  dSiK„ 7..M  X  v'(£g)  +  f  ds^.f^)  x  v-(^) 

47TxLm  ds,  4  7ri?m 


dS.iupUf^) 


e*feiHn 


4nR$. 


4itR± 


L 


p'koRt 


dS2 iup0Lnii /„„ (f7)  - — -j-  +  [  dSziupPnmf  ,,,^) 

S,  4t ;S3  n  47rf2 


m 


(A. 167) 
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and 


J  S  \  Ko 


eik°Rt 


L 


Si 

... 


47rJ?m 


5a  *0 


4-kR 

eiklR 


m 

± 


+ fs/S3WiKP""'7"m{f))^ 


(A. 168) 


Similarly,  (A. 161)  becomes  (with  H =  iT<nc(f^)  and  /E±,  =  |f^  —  r'|  and  where 


m'  is  defined  over  the  surface  of  the  coating) 


'm.  PC  •  +  Hm,  ■  &■)  =  lm. [Bl.„  •  Of  +  Bm,n  ■  to.  +  e-,„  -  e+,„]  (A.169) 


pc 


Pr+ 


p-r 


where 


*m'n  =  -  /  dSJnfJf')  X  -  /  dSlInfnP)  *  (t^t) 

Jsi  JSl  4t ri?*, 


/■  _  e»ko«*,  r  _ 

-  /  dSxiutQKn> f^lr1)  —  -± - /  dS1»weJfn</n,(f') 

75,  47r.Km,  7  5, 

r  _  ,*fcoK*, 

-/  dSiLn'.f^X  V'(— j-) 

7  5a  47rfEm, 


47rfE*, 

m 


r  -  eiklRt' 

75-,  47T  Xt_; 


’53 


47T  iE“i, 

m 


(A. 170) 


and 


-L 


Si 


(A. 171) 


mif'.Tnnri 


Appendix  A.  Derivation  of  Governing  Equations  133 

Also,  (A.  162)  becomes  (with  R*„  =  |r^7,  -r'|  and  where  m"  b  defined  over  the  surface 
of  the  exposed  perfect  conductor) 


— c+  — c— 

i  |-c?+  Pm"  ,  ~jr~  Pm"  1 

‘m»  pm"  -  ~5~  -r^m"  ‘ 


where 


=  (A.172) 


JSx 


dSiiup0Infn{f!') 


eikoRt" 


+  /  rf6r,/c„. /„,(✓)  x  v'(— -5-) 

■/Si  47riSn" 


d52tW/iO-f'n',/n»(fy) 


(A. 173) 


(A. 174) 


Finally,  (A. 163)  becomes  (with  =  |f^#»  —  f'j  and  where  m"'  is  defined  over  the 
surface  of  the  coated  perfect  conductor) 


Om'"  —  /m'"  ^ - +*  ^ m"'»  *  - b  Am"'n  -  Am"'n] 


(A. 175) 


where 


r  _  eiklRt<"  r  -  eiklRt"' 

I-  +  /  x  V'(— -5-) 

^5i  47r-K^/«  •'5,  4nKm,„ 


+  /  dS3iupPn»> /„,„(?) 


eik'Rt' 


(A. 176) 


.••A-1- •  •‘••'•.•'•  -Vv  j- 


and 
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v  iwelm'lni  _c±  f  j  _/_±e**lWm'  j_  *  f  j-t e  1 

+- *■ -  r *r  Tsrj •  L, dr  K'  ~w  ^  4  ~sir 

L  47r  4^»»  •/r±>  ^m'  J 

+*4 ^“'xV'(!Tr:1)l-  (Ad 

L4 n  4^n'»  J T\,  Rm> 


,eiklRi' 


(A.179) 


Substituting  (A. 173)  and  (A.174),  (A. 172)  becomes 
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(A. 180) 


Substituting  (A. 176)  and  (A. 177),  (A. 175)  becomes 


—  tU/4  lm"'ln  _cj.  f  1  ’n"1  j  *  lm"'ln  f  j _j 
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(A. 181) 


By  using  (A.85),  equations  (A. 178)  through  (A. 181)  yield  a  system  of  equations 
which  can  be  written  in  the  following  form: 


.  |y«»-  r^r*i  fn» 


«?TOBPT7I  W'1*V*V1? »?  r«r«:,r?  Vl^w  jv  '.-r'rv  v7 ‘t*  r~*  r*  s— . 
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This  equation  has  the  form  of  V  =  Z  •  I  where  V  represents  the  incident  electric  and 


magnetic  field  excitation  vector  at  the  boundary  surfaces.  I  represents  the  unknown 
electric  and  magnetic  surface  current  coefficients,  and  Z  represents  the  interaction  ma¬ 


trix  for  all  the  triangular  patches  used  to  model  the  surfaces.  The  unknown  surface 
current  coefficients  can  be  found  by  inverting  the  Z-matrix  and  multiplying  the  excita¬ 
tion  vector  by  the  inverted  Z-matrix.  The  Z-matrix  can  now  be  written  as 


(  CZ  1 
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CZ4 

CZ5 
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CZ7 
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(A. 183) 


where  the  individual  elements  are 
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(A. 185) 


(A. 186) 


Appendix  A.  Derivation  of  Governing  Equations 


138 
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(A. 195) 


(A. 196) 


(A. 197) 


CZ15  =  0, 


CZ  16  = 
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(A. 198) 


(A. 199) 


Now  to  satisfy  duality,  CZ2  =  -CZ5.  Further,  to  satisfy  reciprocity,  CZ2  = 
-CZ5t,  CZ3  =  CZ9r,  CZ4  =  CZ13r,  CZ7  =  -CZlOr,  CZ8  =  -CZl4r,  and  CZ12  = 
CZ15t.  Multiplying  the  second  and  fourth  sets  of  equations  by  -1  yields  a  symmetric 
Z-matrix: 
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(A. 200) 
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Equations  (A.201)  through  (A.216)  represent  the  symmetric  Z-matrix  as  computed  by 
program  EFIE2PC.FOR  (see  Appendices  B  and  D). 
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Appendix  B 


DESCRIPTION  OF  COMPUTER  PROGRAMS 


B.l  Introduction 


The  electric  field  integral  equation  (EFIE)  programs  are  discussed  in  this  ap¬ 
pendix.  This  set  of  programs  uses  the  method  of  moments  to  calculate  the  equivalent 
electric  and  magnetic  surface  currents  and  the  far-field  radiation  pattern  of  a  user 
specified  geometrical  construction.  This  geometrical  construction  is  a  triangular  patch 
model  of  the  coated  perfect  conductor.  The  user  specifies  a  geometry  by  creating  the 
file  GMETRY.DAT  using  the  commands  outlined  in  INPUT.DOC.  GMETRY.DAT  is 
the  input  for  the  EFIE  series  of  programs.  Various  output  files  are  generated  by  these 
programs.  EFIE5R  and  EFIE5V  will  generate  plots  on  a  graphics  terminal.  These 
plots  can  be  viewed  and  manipulated  in  an  interactive  mode.  The  source  code  uses 
PENPLOT  graphics  software. 

B.2  Program  Description 

A  brief  description  of  the  EFIE  files  and  programs  follows: 

GMETRY.DAT—  a  user  created  file  which  uses  condensed  commands  to  create  the 
desired  geometry.  The  condensed  commands  can  be  found  in  the 
INPUT.DOC  file.  This  file  is  the  input  to  EFIEl.  To  view  the  ge¬ 
ometry  created  by  the  GMETRY.DAT  commands,  run  EFIEl  and 
rename  or  copy  the  output  file  STORAGE.DAT  to  RESULT.DAT. 
Then  run  EFIE5V. 


EFIEl—  translates  condensed  geometry  specifications  into  EFIE  usable 
data.  Surface  modelling  by  triangular  patches. 
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INPUT:  GMETRY.DAT— condensed  geometry  specs 
OUTPUT:  STORAGE.DAT— geometry  modelled  using  triangular 
patches 

EFIE2C—  calculates  the  “generalized”  symmetric  Z-matrix  of  an  arbitrary 
configuration  of  completely  coated,  perfectly  conducting  surfaces. 
Surface  modelling  is  by  triangular  patches. 

INPUT:  complex  relative  permittivity,  cr,  and  permeability,  (jlr . 
INPUT:  STORAGE.DAT— perfect  conductor  geometry 
INPUT:  CSTORAGE.DAT— coating  geometry  (generated  by  EFIEl 
and  renamed  from  STORAGE.DAT) 

OUTPUT:  RESMAT.DAT -Z-matrix 

EFIE2PC—  calculates  the  “generalized”  symmetric  Z-matrix  of  an  arbitrary 
configuration  of  partially  coated,  perfectly  conducting  surfaces. 
Surface  modelling  is  by  triangular  patches. 

INPUT:  complex  relative  permittivity,  cr,  and  permeability,  pR. 
INPUT:  STORAGE.DAT— coated  perfect  conductor  geometry 
INPUT:  KSTORAGE.DAT— exposed  perfect  conductor  geometry 
(generated  by  EFIEl  and  renamed  from  STORAGE.DAT) 
INPUT:  CSTORAGE.DAT— coating  geometry  (generated  by  EFIEl 
and  renamed  from  STORAGE.DAT) 

OUTPUT:  RESMAT.DAT- Z-matrix 
EFIE3—  inverts  the  symmetric  Z-matrix  by  border  inversion 
INPUT:  RESMAT.DAT- Z-matrix 
OUTPUT:  RESMAT.DAT— inverse  Z-matrix,  Z 
EFIE5BC—  calculates  scattered  electromagnetic  field,  Ea ,  far-field  radiation 
pattern  from  the  equivalent  electric  and  magnetic  surface  current 
distribution  of  an  arbitrary  configuration  of  completely  coated 
perfect  conductors  (triangular  patches  used  to  model  surfaces). 
Current  density  calculated  across  edges  of  triangles.  This  is  an 
interactive  program. 
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INPUT:  RESMAT.DAT— inverse  Z-matrix,  Z 
INPUT:  CSTORAGE.DAT— coating  geometry 
OUTPUT:  SPATTERN.DAT— stored  far-field  radiation  pattern 
EFIE5PC—  calculates  scattered  electromagnetic  field,  Ea,  far-field  radiation 
pattern  from  the  equivalent  electric  and  magnetic  surface  current 
distribution  of  an  arbitrary  configuration  of  partially  coated  per¬ 
fect  conductors  (triangular  patches  used  to  model  surfaces).  Cur¬ 
rent  density  calculated  across  edges  of  triangles.  This  is  an  inter¬ 
active  program. 

INPUT:  RESMAT.DAT- inverse  Z-matrix,  f_1 
INPUT:  CSTORAGE.DAT— coating  geometry 
INPUT:  KSTORAGE.DAT— exposed  perfect  conductor  geometry 
OUTPUT:  SPATTERN.DAT— stored  far-field  radiation  pattern 
EFIE5R—  calculates  far-field  radar  cross  section  (RCS),  cr,  patterns  from 
the  previously  stored  far-field  radiation  pattern  of  an  arbitrary 
configuration  of  coated  surfaces  (triangular  patches).  This  is  an 
interactive  program.  Output  is  plotted  on  a  graphics  terminal. 
The  plotting  subroutines  called  by  this  program  can  be  found  in 
PLOTR2.FOR  which  uses  PENPLOT  graphics  software. 

INPUT:  RPATTERN.DAT— this  file  is  necessary  if  user  asks  pro¬ 
gram  to  read  a  previously  stored  pattern  such  as  SPAT¬ 
TERN.DAT  generated  by  EFIE5B.  RPATTERN.DAT  is 
simply  SPATTERN.DAT  renamed  or  copied. 

OUTPUT:  far-field  RCS  plots  on  a  graphics  terminal. 

OUTPUT:  DPATTERN.DAT— user  readable  file  containing  the  far- 
field  RCS,  o,  versus  angle  data 

OUTPUT:  HDCOPY.PLT— far-field  RCS  patterns  (user  requested) 
ready  for  printing. 

EFIE5V—  outputs  GMETRY.DAT  data  in  user  viewable  form.  The  geometry 
created  by  the  user  can  be  viewed  on  graphics  terminal.  The  plot 
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produced  is  a  3-D  graphics  view  of  the  geometry,  and  the  viewing 
angle  can  be  changed.  This  is  an  interactive  program. 

INPUT:  RESULT.DAT -renamed  or  copied  STORAGE.DAT  or 
CSTORAGE.DAT  file. 

OUTPUT:  plots  on  a  graphics  terminal. 

OUTPUT:  HDCOPY.PLT— 3-D  geometry  (user  requested)  ready  for 
printing. 

HDCOPY.PLT—  file  containing  plots  requested  by  user.  They  can  be  viewed  on  a 
graphics  terminal  or  sent  to  a  printer. 

B.3  Flowchart  of  Computer  Programs 
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Figure  B.l.  Flowchart  of  EFIE  Computer  Programs 
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I 


SEVEN-POINT  NUMERICAL  INTEGRATION 

OVER  TRIANGULAR  SUBDOMAINS  | 


C.l  Introduction 


To  calculate  the  elements  of  the  interaction  matrix,  Z-matrix,  an  integration  of 
several  types  of  functions  over  each  triangular  patch  is  required  as  shown  in  Appendix 
A,  equations  A. 106  through  A. 114  and  A.201  through  A.216.  The  integration  of  these 
functions  over  the  triangular  patches  is  accomplished  numerically  using  a  quadrature 
technique  for  surface  integration  over  a  triangular  surface.  The  following  sections  of 
this  appendix  discuss  the  numerical  integration  of  these  functions  over  the  triangular 
patches. 


C.2  Integration  of  fT±  dr'p*—°±™  and  fT±  dr 


The  integrations  of  fT±  dr'  p^  e  m  and  fT±  dr ' ?  °  j.  —  are  accomplished  us- 
ing  a  seven-point  numerical  integration  scheme  over  each  triangular  patch.  When  the 
source  triangle  and  the  observation  triangle  are  the  same  triangular  patch,  m  =  n,  and 
the  singularity  in  these  integrals  presents  a  difficulty.  The  seven-point  numerical  inte¬ 
gration  scheme  used  is  discussed  in  Chapter  3  of  Kiang’s  thesis  [124],  and  will  not  be 
repeated  here.  Further,  Kiang’s  thesis  discusses  the  effects  of  various  triangular  patch 
shapes  on  the  computation  of  the  scattering  from  perfect  conductors.  The  seven-point 
numerical  integration  over  the  triangular  patches  is  an  adaptation  of  the  numerical 
quadrature  technique  discussed  in  reference  [125].  The  quadrature  values  used  in  the 
integration  can  also  be  found  in  Abramowitz  and  Stegun  [126]  on  page  893.  The  inte¬ 
gration  of  JT±  dfp^6  °j.m  and  df/5-^sJ=-  are  accomplished  in  subroutine  NINT7 
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of  fortran  program  EFIE2PC  (Appendix  D),  and  the  integration  of  fT±  dr'p± 

ik  R± 

and  f_,±  df1  -  are  accomplished  in  subroutine  NINT7A  of  EFIE2PC. 

It —I, 


C.3  Integration  of  fT±  df*p±  x  (f£±  -  r,)(l  -  ik0R±)^ 


The  integration  of  fT±  dfp^  x  —  f/)(l  —  ikoR±) e,  A  yy  uses  a  modified 
version  of  the  seven-point  numerical  integration  scheme  discussed  in  Section  C.2.  Refer 


to  Figure  C.l.  Let 


Imn  =  f  dfp^  x(fcm±-f/)(l-  ik0R±) 

JT* 


(RZ): 


(C.l) 


Now,  referring  to  Figure  C.l,  let 


Pn  =  (f*  -  r{) 


(C.2) 


where  fx  —  rl5f2,r3  in  turn.  Now 


where 


^  =  fx  +  (r2  -  n)£  +  (f3  -  rx)77 


?  4  ’ 


(C.3) 


(C.4) 


1  =  (C.5) 

Sin 

and  An  is  the  area  of  the  nth  triangular  patch,  ri  is  the  vector  from  the  global  origin 
to  vertex  1  of  the  nth  triangular  patch.  Similarly,  f2  and  r3  are  the  vectors  from  the 
global  origin  to  vertices  2  and  3,  respectively,  of  the  nth  triangular  patch. 

Substituting  C.2  into  C.l,  Imn  becomes 


Imn=  f  df'if'  -  r{)  x  (f£  -  f')(l  - 
JT? 


ikoRt) 


(My 


(C.6) 
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P  -  n)  X  -  f*)  =  rJ  x  ft  -  n  x  r£=  +  f,  x  r- 

=  (^±Xfi)+f,-Xf'-fg=Xf' 
=  (*5?  X  fl)  +  (f,  -  ft)  X  f'. 


(C.7) 


Therefore,  using  C.3  in  C.7  and  C.l  in  C.6  yields 


imn  =  dr*  | (F$f  x  Ft)  +  (r‘i-f<n±)xf'  (l  -  ik0R±) 

=  2 An  [  [  didrj  (r^=  x  F<) 

Jo  Jo 

+  (f»  -  r°m)  X  {?1  +  (f2  -  fi)£  +  -  fi)T7}  (1  -  ik0R±)j-£^ 

J  (Km) 

nl  —  n 

dtdri(l-ik0R±)  r-- 
(Km) 

+  2An{Fi  -f£)  x  f  (  d£drj  {rx  +  iri-r^Z 
Jo  Jo 

"1  -ikoR-m 

+  (f3  -  fib}j  (1  -  ikoRfc) 

,  rl  rl-r,  eik0  R* 

=  2 Anif'm  X  fi)  /  /  d£dri{l  -  ik0R±)  r  - 

J  0  Jo  ( Rm )3 

,  f1  Z’1-'?  ,  eik°Rm 

+  2An(F,  -  r |f)  x  ri  d£dr){  1  -  tfc0JZ*)  ^  ^ 

nl  —  »7  r'koR„ 

dtdrj  £(1  -  tfcofl*)  % 

(i?m)3 

,  F 1  r1-"  ,  eil(oR* 

+  2An(F<  -  f^)  x  (f3  -  Fx)  /  /  d£dr?  r/(l  -  tfc0fl*)  x 

do  do  (Rm)3 


eik0Rm 


eikoR* 


eik°Rm 


e'k°  Rm 


—  2>ln(rm  X  Ti)Jm  -j-  2An(fj  Fm  )  X  F\Jm 

+  2An (Ft-  -  F^)  X  (F2  -  Fj)J4,  +  2An(F,-  -  F^f)  x  (F3  -  Fi)  (C.8) 


Finally, 


7mn  =  2An  (f^kXF,)Jm  +  (F,-F^:)x{FlJm4-(F2-Fi)j4,  +  (r3-F1)J^}  ;m^n  (C.9) 
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where 

Z*1  rl~r>  ,  eikoR » 

(C-10) 

.  fi-v  e*koR* 

J™  =  /„/o  (c-n) 

r1  r1-^  ,  eik°R™ 

Jrn  =  JQ  JQ  d^drj  r?(l  —  ik0R±)  ± .  (C.  12) 

A  singularity  occurs  in  these  integrals  when  m  =  n.  For  m  =  n,  which  corresponds  to 
the  source  triangle  and  the  observation  triangle  being  the  same  triangular  patch,  Imn 
is  set  equal  to  zero  since 

r  _ ik0R * 

X  (rtf  -  r'Hl  -  ikoKjajzsz  (C.13) 

I T*  (Mm)* 

yields  a  vector  in  the  plane  of  the  triangular  patch,  p dotted  with  a  vector  perpen¬ 
dicular  to  the  plane  of  the  triangular  patch,  p„  X  (f£*  —  f'). 

The  seven-point  numerical  integration  over  the  triangular  patches  is  an  adap¬ 
tation  of  the  numerical  quadrature  technique  discussed  in  reference  [125].  The  values 
used  in  the  quadrature  integration  can  also  be  found  in  Abramowitz  and  Stegun  [126] 
on  page  893.  The  integration  of  fT±  df*p ^  x  ( f ^  —  f/)(l  —  ikQR±)  is  accom- 

plished  in  subroutine  NINT7B  of  fortran  program  EFIE2PC  (Appendix  D),  and  the 
integration  of  fT±  dfp^  x  —  r')(l  —  ik\R^)  >  ‘±*7  is  accomplished  in  subroutine 

±n  V,"mZ 

NINT7C  of  EFIE2PC. 
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Appendix  D 

EFIE2PC  COMPUTER  PROGRAM 


This  appendix  contains  the  EFIE2PC  computer  program.  The  EFIE2C  program 
discussed  in  Chapter  3  and  Appendix  B  uses  similar  logic.  The  EFIE2PC  computer 
program  is  written  in  the  FORTRAN  computer  language.  This  program  calculates  the 
elements  of  the  interaction  matrix,  Z-matrix,  for  a  partially  coated  perfect  conductor 
(see  Chapter  3).  The  individual  elements  of  the  Z-matrix  are  computed  according 
to  equations  A. 201  through  A.216  in  Appendix  A.  The  Z-matrix  elements  computed 
from  each  of  these  equations  are  calculated  in  subroutines  ZPLPL1  through  ZPLPL16 
respectively.  The  PLPL  designation  is  an  abbreviation  for  plate-plate  interaction  since 
triangular  patches  are  used  to  model  the  surfaces. 
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EFIE2PC 

modified  version  of  EFTE2  to  handle  PARTIALLY  coated  perfect  conductors 
version  1.0  September  1985  MIT 

this  program  calculates  the  "generalized”  impedance  matrix  of 

of  an  arbitrary  configuration  of  PARTIALLY  COATED  conducting  surfaces 

inverting  and  multiplying  this  matrix  by  an  excitation  will  obtain 
the  current  distribution  and  the  far  field  radiation  pattern 


excitation  may  be  by  either  plane  waves  or  voltage  sources 


modelling  of  the  surface  is  done  by  triangular  patches 


surfaces  may  be  multiply  connected 

input  file:  STORAGE  —  geometry  for  COATED  perfect  conductor 
input  file:  CSTORAGE  —  geometry  for  coating 
input  file:  KSTORAGE  —  geometry  for  EXPOSED  perfect  conductor 
output  file:  RESMAT  —  Z-matrix 

at  present  1000  unknowns  are  permitted 

PROGRAM  CMPUTE 

C 

INTEGER  MNODESJdEDGES.MFACES.MWCRDS.MUNKNS 
INTEGER  NNODESJ^EDGESJ'TF ACES^TW CRDS,NUNKNS,NW SEGS 
INTEGER  JNODESJEDGESJFACESJWCRDSJUNKNSJWSEGS 
INTEGER  KNODESJCEDGESJCFACESJCWCRDSJCUNKNSJCWSEGS 
PARAMETER  (MNODES-300) 

PARAMETER  (MEDGES-900) 

PARAMETER  (MFACES-600) 

PARAMETER  (MWCRDS-2) 

PARAMETER  (MUNKNS-600) 

C 

INTEGER  WIRE^LATESTATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMPLEX  RJCN1JWU14P,X14PWEJWE14P,X14PWU 
COMPLEX  CZ(MUNKNSMUNKNS),CV(MUNKNS),CI(MUNKNS) 
COMPLEX  CCV(MUNKNS),CCI(MUNKNS) 

COMPLEX  KCV(MUNKNS)XCI(MUNKNS) 

REAL  PIJCN,JWU04P,X14PJEJWE04P,X14PJU,X14PI 
REAL  DATNOD(4MNODES),WR(4MWCRDS) 

REAL  CDATNOD(4MNODES),CWR(4fMWCRDS) 

REAL  KDATN0D(4MN0DES)1CWR(4MWCRDS) 

INTEGER  NCONN(2MEDGES)^BOUND(6MFACES) 

INTEGER  JCONN(2MEDGES)rJBOUND(6MFACES) 


nnn 
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INTEGER  KCONN(2,MEIX3ES)JCBOUNlX6,MFACES) 

INTEGER  SEG(4>IWC31DS-1)A1APUNK(MEDGES+MWCRDS) 

INTEGER  SEGJ(4MWCRDS-1)MAPUNKJ(MEDGES+MWCRDS) 

INTEGER  SEGK(4,MWCRDS-l),MAPUNKK(MEDGES+MWCRDS) 

COMMON/DIMEN/NNODESJntEDGES,NFACES 

CXJMMON/TMMWR/NWCRDSJfWSEGS 

COMMON/NMBRS/NUNKNS 

COMMON/RWIRE/WR 

COMMON/SWIRE/SEG 

OOMMON/PLAT1/DATNOD 

COMMON/PLAT2/NCONN 

COMMON/PLAT3/NBOUND 

COMMON/CONST/PUCNJUWU04P,X14PJEJWE04P,X14PJU 

COMMON/MAPUS/MAPUNK 

COMMON/MATRX3/CI 

COMMON/MATRX2/CV 

COMMON/MATRX1/CZ 

CX3MMON/CDIMEN/JNODESJEDGESJFACES 

COMMON/CDIMWR/JWCRDSJWSEGS 

COMMON/CNMBRS/JUNKNS 

COMMON/CRWIRE/CWR 

COMMON/CSWIRE/SEGJ 

COMMON/CPLAT1/CDATNOD 

COMMON/CPLAT2/JCONN 

COMMON/CPLAT3/JBOUND 

COMMON/CONSTl/KNUWU14P^14PWE^14PUWE14P^14PWU 

COMMON/CMAPUS/MAPUNKJ 

COMMON/CMATRX3/CCI 

COMMON/CMATRX2/CCV 

COMMON/KDIMEN/KNODESJCEDGESJCFACES 

COMMON  /KDIMWR/K  W CRDS.K  W  SEGS 

COMMON/KNMBRS/KUNKNS 

COMMON/KRWIRE/KWR 

COMMON  /KS WIRE/  SEGK 

COMMON/KPLAT1/KDATNOD 

COMMON/KPLAT2/KCONN 

COMMON/KPLAT3/KBOUND 

COMMON  /KMAPU  S/MAPUNKK 

COMMON/KMATRX3/KCI 

COMMON/KMATRX2/KCV 

read  the  geometry  for  the  COATED  perfect  conductor 

OPEN(FILE-’STORAGE’^TATUS-,OLD,,UNIT-55JFORM-'UNFORMATTED’) 

CALL  HFE-E(MNODESMEDGESAIFACESMWCRDSMUNKNS, STATE) 

CLOSE(55) 

IF  (STATENEO)  THEN 
WRTTEC6.101) 

STOP 
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ENDIF 

C 

C  read  the  geometry  for  the  EXPOSED  perfect  conductor 
C 

OPENCnLE-’KSTORAGE,3TATUS-,OLD,,UNrr-54JORM-TJNFORMArrED0 

call  hfilekCmnodes^iedgesaifacesmwcrdsmunkns, STATE) 

CLOSE(54) 

IF  (STATEJ^E.0)  THEN 
WRTTE(6,101) 

STOP 

ENDIF 

C 

C  read  the  geometry  for  the  coating 
C 

OPEN(nLE-,CSTORAGF^TATUS-’OLD,,UNrr-56^ORM-'UNFORMATTED0 
CALL  HFILECCMNODESJViEDGESJdFACESMW CRDS,MUNKNS,STATE) 

CLOSE(56) 

IF  (STATEmo)  THEN 
WRTTE(6,101) 

STOP 

ENDIF 

101  FORMAT(3Xf’***  currents  have  already  been  computed  ***’) 

C 

C  establish  Z-matrix 
C 

OPEN(FILE-’RESMAr^TATUS-,NEW’,UNn'-.57TORM-'UNFORMATTED’) 

CALL  ZINnXCZJUNKNSJUNKNS) 

CALL  ZPLPLl(CZrJUNKNSJ'TUNKNSrKUNKNS) 

CALL  ZINntCZJUNKNSJUNKNS) 

CALL  ZPLPL2CCZJUNKNS) 

CALL  ZPLPL5CCZJUNKNS) 

CALL  ZINIT(CZJUNKNSJUNKNS) 

CALL  ZPLPL6CCZJUNKNS) 

CALL  SAFE(CZJUNKNSJCUNKNS^UNKNS,1) 

CALL  ZINITCCZJUNKNSJCUNKNS) 

CALL  ZPLPL3CCZJUNKNSJKUNKNS) 

CALL  ZPLPL9CCZJUNKNSJK.UNKNS) 

CALL  ZINntCZJUNKNSJCUNKNS) 

CALL  ZPLPL7(CZJUNKNSJCUNKNS) 

CALL  ZPLPL10CCZJUNKNSJCUNKNS) 

CALL  ZINrrCCZJCUNKNSJCUNKNS) 

CALL  ZPLPL1  l(CZJCUNKNS) 

CALL  SAFE(CZJUNKNSJCUNKNSJWNKNS^) 

CALL  ZINTrCCZJUNKNSyNUNKNS) 

CALL  ZPLPL4(CZJUNKNSJ*UNKNS) 

CALL  ZPLPL13(CZJUNKNS^UNKNS) 

CALL  ZINTTCCZJUNKNS^UNKNS) 

CALL  ZPLPL8(CZJUNKNS,NUNKNS) 

CALL  ZPLPL14(CZJUNKNS,NUNKNS) 

CALL  ZINntCZJWNKNSJ^UNKNS) 

CALL  ZPLPL16(CZJJUNKNS) 

CALL  SAFE(CZJUNKNSJCUNKNS>NUNKNS,3) 
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CLOSEC57) 

C 

STOP 
END 

read  necessary  geometry  information  for  COATED  perfect  conductor 

SUBROUTINE  HFILE(MNODES^lEDGES^ACESJtfWCRDS,MUNKNS,STATE) 

C 

INTEGER  U^TATE 

INTEGER  MNODES^IEDGES^IFACES^IW CRDS^IUNKNS 
INTEGER  NNODES>NEDGES^FACES>NWCRDS>NUNKNS^rWSEGS 

complex  ji,ci(i),cv(i) 

REAL  PUCNJWU04P.X14PJE 
REAL  DATNODC4,l),WR(4,l) 

INTEGER  NCONN(2,l)^BOUND(6,l)3EG(4,l)MAPUNK(l) 

C 

COMMON/DIMEN/NNODESJ^EDGESJ^FACES 

COMMON/DIMWR/NWCRDSJ^W  SEGS 

COMMON/NMBRS/NUNKNS 

COMMON/RWIREAVR 

COMMON/SWIRE/SEG 

COMMON/PLAT1/DATNOD 

COMMON/PLAT2/NCONN 

COMMON/PLAT3/NBOUND 

COMMON/CONST/PtKNJLJWU04P^14PJEJWE04P^a4PJU 

COMMON/MAPUS/MAPUNK 

COMMON/MATRX3/Q 

COMMON/MATRX2/CV 

C 

READC55JERR-990)  STATE 

READ(5S,ERR-990)  NNODESJ^EDGESJ^FACESWCRDSJTWSEGSJWNKNS 

C 

IF  (NNODES.GT MNODES)  WRTTE(6,9l)  MNODES 
IF  (NEDGES.GTMEDGES)  WRITE(6,92)  MEDGES 
IF  (NFACES.GT MF  ACES)  WRTTE(6,93)  MFACES 
IF  (NWCRDS.GTMWCRDS)  WRTTE(6,94)  MWCRDS 
IF  (NUNKNS.GTMUNKNS)  WRTIE(6,95)  MUNKNS 

IF  (NNODES-GTMNODES.OR.NEDGES.GTMEDGES.ORJsTACES.GTMFACES.OR. 
+  NWCRDS.GTMWCRDS.ORMJNKNS.GTMUNKNS)  STOP 
C 

READC55JERR-990)  (( WR(U) J- 1 ,4)4- 1  .NWCRDS) 

READC55.ERR-990)  C(SEG(LJ)>1,4)J-1^WSEGS) 

READ(55£RR-990)  ((DATN0D(U)J-1.4)>1PNN0DES) 

READC55JERR-990)  ((NC0NN(U)>U)J-1^EDGES) 

READ(55£RR-990)  ((NB0UND(U)J-1,6)J-1^FACES) 

READ(55,ERR-990)  PEKN,JIrJWU04P,X14PJE 
READC55JERR-990)  (MAPUNK(I),I-1,NEDGES) 

READC55.ERR-990)  (MAPUNK(I+NEDGES)J-1JAVCRDS) 

C 

READC55.ERR-990)  (CV(I)J-1,NUNKNS) 

READ(55JERR-990)  (CI(I),I-1,NUNKNS) 


Appendix  D.  EFIE2PC  Computer  Program  156 
C 

REWIND  55 
RETURN 
C 

91  FORMAT(/2X,’nodes  exceeds  dimension  of  J5) 

92  FORMAT(/2X,’edges  exceeds  dimension  of  J5) 

93  FORMAT(/2X,’faces  exceeds  dimension  of ,15) 

94  FORMAT(/ 2X,’ wire  nodes  exceeds  dimension  of  J5) 

95  FORMATC/2X,’unknowns  exceeds  dimension  ofJ5) 

99  FORMATC/2X,'***  unexpected  error  in  read  ***’) 

990  WRTTEC6.99) 

STOP 

C 

END 

C 

C  read  necessary  geometry  information  for  EXPOSED  perfect  conductor 
C 

SUBROUTINE  HFILEK(MNODESMEDGESMFACESMWCRDS,MUNICNS,STATE) 

C 

INTEGER  U.STATE 

INTEGER  MNODESMEDGES.MFACESMWCRDSMUNKNS 
INTEGER  KNODESJCEDGESJCFACESJCWCRDSJCUNKNSJCWSEGS 
COMPLEX  JLKCl(l)JCCV(l) 

REAL  PLKNrJWU04P^X  1 4PJE 
REAL  KDATNODC4,l)jCWR(4,l) 

INTEGER  KCONN(2,1)OCBOUND(6>1  )^EGK(4,1  )MAPUNKKC  1 ) 

C 

COMMON/KDIMEN/KNODESJCEDGESJKFACES 

COMMON/KDIMWR/KWCRDSJCWSEGS 

COMMON/KNMBRS/KUNKNS 

COMMON/KRWIRE/KWR 

COMMON/KSWIRE/SEGK 

COMMON/KPLAT1/KDATNOD 

COMMON/KPLAT2/KCONN 

COMMON  /KPLAT  3/KBOUND 

COMMON/CONST/PUfCNJUWU04P^.14PJErJWE04P^14PJU 

COMMON/KMAPUS/MAPUNKK 

COMMON/KMATRX3/KCI 

COMMON/KMATRX2/KCV 

C 

REAIX54ERR-990)  STATE 

READC54.ERR-990)  KNODESJCEDGESJCFACESJCWCRDSJCWSEGSJCUNKNS 
C 

IF  (KNODES.GTMNODES)  WRITE(6,9l)  MNODES 
IF  CKEDGES.GTMEDGES)  WRITEC6.92)  MEDGES 
IF  (KFACES.GTMFACES)  WRITE(6,93)  MFACES 
IF  (KWCRDS.GTMWCRDS)  WRITE(6,94)  MWCRDS 
IF  (KUNKNS.GTMUNKNS)  WRJTE(6,95)  MUNKNS 

IF  (KNODES.GTMNODES.ORJCEDGES.GTJvIEDGES.ORJCFACES.GTMFACES.OR. 

+  KWCRDS.GTMWCRDS.ORJCUNKNSGTMUNKNS)  STOP 
C 

REAIX54ERR-990)  ((KWR(U)J-1,4)J-1JCWCRDS) 
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REAK54JERR-990)  ((SEGK(U)J-1,4)J-1^CWSEGS) 

READC54.ERR-990)  ((KDATN0D(U),I-l,4)fJ-l,KN0DES) 

READ(54,ERR.990)  ((KCONN(lrJ)J-U)rJ-lJCEDGES) 

READC54.ERR-990)  ((KB0UND(y)J-l,6y-lJCFACES) 

READ(54>ERR-990)  PIJCN JIJWU 04P.X 1 4P JE 
READ(54fERR-990)  (MAPUNKK(I)>1JCEDGES) 

READ(54tERR«990)  (MAPUNKK(I+KEDGES) J- 1 JC WCRDS) 

C 

REAIX54JERR-990)  (KCVCDJ-IJCUNKNS) 

READ(54^RR-990)  (KCI(I),I-1,KUNKNS) 

C 

REWIND  54 
RETURN 
C 

91  FORMATC/ 2X,’nodes  exceeds  dimension  oTJ5) 

92  FORMAT(/2X,’edges  exceeds  dimension  of\I5) 

93  FORMAT(/2X,’faces  exceeds  dimension  of*J5) 

94  FORMATC/2X,’wire  nodes  exceeds  dimension  oFJ5) 

95  FORMAT(/2X,’unknowns  exceeds  dimension  of\I5) 

99  FORMATC/2X,’***  unexpected  error  in  read  •***) 

990  WRTTE(6,99) 

STOP 

C 

END 

C 

C  read  necessary  geometry  information  for  coating 
C 

SUBROUTINE  HFTLEC(MNODESJvIEDGES>MFACESJvfW CRDSJdUNKNS,ST ATE) 

C 

INTEGER  LLSTATE 

INTEGER  MNODES^fEDGES^IFACESJMW CRDS^IUNKNS 
INTEGER  JNODESJEDGESJFACESJWCRDSJUNKNSJWSEGS 
COMPLEX  JLCa(l),CCV(l) 

COMPLEX  EPSILON J4UJCN 1 JWU  14P,X  1 4P WE/WE 1 4P,X  1 4P WU 
REAL  PLKNJWU04P.X14PJE 

REAL  C.LAMBD  A.MU0.OMEG  A.EPSL0N 0JWE04P.X  1 4P  JU.X1 4PI 
REAL  CDATNODC4,l),CWR(4,l) 

INTEGER  JCONN(2,l)jBOUND(6,l)3EGJ(4,l)rMAPUNKJ(l) 

C 

COMMON/CDLMEN/JNODESJEDGESJFACES 
COMMON/CDIMWR/  JWCRDSrJWSEGS 
COMMON/CNMBRS/JUNKNS 
COMMON/CRWIRE/CWR 
COMMON/CSWIRE/SEGJ 
COMMON/CPLAT 1  /CD  ATNOD 
C0MM0N/CPLAT2/JC0NN 
COMMON/CPLAT  3/JBOUND 

COMMON/CONST/PUCNJUWU04PX 1 4PJErJWE04P^.14PJU 

COMMON/CONSTl/KNl,JWU14P,X14PWE*X14PLrWE14P,X14PWU 

COMMON/CMAPUS/MAPUNKJ 

C0MM0N/CMATRX3/CCI 

C0MM0N/CMATRX2/CCV 
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C 

READ(S6,ERR-990)  STATE 

REAIX56.ERR-990)  JNODESJEDGESJFACESJWCRDSJWSEGSJUNKNS 
C 

IF  (JNODESGTMNODES)  WRITEC6,9l)  MNODES 
IF  (JEDGES.GTMEDGES)  WRITE(6,92)  MEDGES 
IF  (JFACES.GTMFACES)  WRITE(6,93)  MFACES 
IF  (JWCRDSGTMWCRDS)  WRITE(6,94)  MWCRDS 
IF  (JUNKNSGT.MUNKNS)  WRITE(6,95)  MUNKNS 

IF  (JNODESGTAlNODES.ORJEDGES.GTJvIEDGES.ORJFACES.GTMFACES.OR. 

+  JWCRDSGTMWCRDSORJUNKNSGTMUNKNS)  STOP 
C 

REAIX56ERR-990)  ((CWR(U)J-1,4)J-1JWCRDS) 

READC56JERR-990)  ((SEGJ(U)J-1,4)J-1JWSEGS) 

READC56.ERR-990)  ((CDATN0D(U)J-1,4)J-1JN0DES) 

REAIX56ERR-990)  ((JCONN(U)J-U)J-lJEDGES) 

READ(56£RR-990)  ((JB0UND(U)J-1,6)J-1JFACES) 

READC56ERR-990)  PLKNJLTWU04P.X14PJE 
READC56JERR-990)  (MAPUNKJ(I)J-IJEDGES) 

READ(56,ERR-990)  (MAPUNKJ(I+JEDGES),I-1JWCRDS) 

C 

READC56.ERR-990)  (CCVGOl-lJUNKNS) 

READ(S6JERR-990)  (CCKDJ-IJUNKNS) 

C 

REWIND  56 
calculate  constants 

TYPE  * ’ENTER  RELATIVE  EPS  &  MU  OF  COATING:  EPS(REJM)MU(REJM)’ 
READCV)  EPSILONMU 

TYPE  ‘.'EPSILON  RELATTVE-’JEPSILON 
TYPE  VMU  EELATTVE-\MU 
PI-  3.1415926535897932 
O  299792456 
LAMBDA-  1.0 
MUO-  4*PI*lD-7 
TYPE  ‘.’MUO-’MUO 
KN-  2*PI/LAMBDA 
TYPE  *, *KN-\KN 
OMEGA-  KN»C 
TYPE  *, ’OMEGA-’, OMEGA 
EPSLONO-  1/(MU0*C**2) 

TYPE  V EPSLONO-’JEPSLONO 
MU-  MU*MUO 
TYPE  ‘MU-’MU 
EPSILON-  EPSILON*EPSLONO 
TYPE  ‘.EPSILON-EPSILON 
JWU04P-  OMEGA*MUO/(4*PI) 

TYPE  *’JWU04P-’JWU04P 
X14PJE-  -1/(4*PI*OMEGA*EPSLONO) 

TYPE  VX14PJE-\X14PJE 
JI-  CMPLX(O.-l) 
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TYPE  VJI-’JI 

JWE04P-  OMEGA*EPSLONO/(4*PI) 

TYPE  VJWE04P-’rJWE04P 
X14PJU-  -1/(4*PPOMEGA*MUO) 

TYPE  *,’X14PJU-’tX14PJU 
KN1-  OMEGA*SQRT(MU*EPSILON) 

TYPE  VKN1-VKN1 
JWU14P-  0MEGA*MU/(4*PI) 

TYPE  VJWU14P-’JWU14P 
X14PWE-  -1/(4*PI*0MEGA*EPSEL0N) 

TYPE  *,'X14PWE-’X14PWE 
X14PI-  1/(4*PI) 

TYPE  VX14PI-\X14PI 
JWE14P-  0MEGA*EPSIL0N/(4*PI) 

TYPE  **JWE14P-’JWE14P 
X14PWU-  -1/(4*PI*0MEGA*MU) 

TYPE  VX14PWU-VX14PWU 

RETURN 

FORMATC/2X,’nodes  exceeds  dimension  ofJ5) 
FORMATC/2X,’edges  exceeds  dimension  of ,15) 
FORMATC/2X,’faces  exceeds  dimension  of  ,15) 
FORMAT(/2X,’wire  nodes  exceeds  dimension  of ,15) 
FORMAT(/2X,’unknowns  exceeds  dimension  of ,15) 
FORMATC/2X,’***  unexpected  error  in  read  ***0 
WRITEte.^) 

STOP 


C  Z-MATRIX  contributions 

C 

C 

C  init  cz  matrix 
C 

SUBROUTINE  ZINIT(CZJUNKNS^UNKNS) 

INTEGER  JUNKNSJWNKNS 
COMPLEX  CZCJUNKNSJWNKNS) 

DO  2001  I-UUNKNS 
rj  2001  J-1.NUNKNS 

uz(u)-o 

2001  CONTINUE 
RETURN 
END 
C 

C  plate  -  plate  coupling 
C 

SUBROUTINE  ZPLPLl(CZJUNKNS*NUNKNS4CUNKNS) 
C 

INTEGER  JUNKNSJfUNKNSJCUNKNS 
COMPLEX  JLAP.SGNPOT 
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COMPLEX  CVEC,CXSLCETA,CPHLAl(3),CD0T 
COMPLEX  CVEC1,CXSI1,CETA1,CPHI1,A2(3) 

COMPLEX  CZ(JUNKNStIUNKNS),CX1,CF,CFX 
COMPLEX  KN1,JWU14PX14PWEJWE14PX14PWU 
REAL  PLKN,JWU04P)X14PJEJWE04P,X14PJU,X14PI 
REAL  MAGNLGTAREAAREAIN.VDOTAREAIM, TRASH 
REAL  DR35OT,RLNl(3),R0l(3),LlM(3),LlN(3) 

REAL  R11M(3,3),R1M(3),RC1M(3),RH01M(3),R1  1N(3,3) 

REAL  XSI(7)JETA(7),WGHT(7) 

INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  U,KJd(2),M0,Ml,N(2),N0,Nl,MAPl,ElM(3),ElN(3),ISGN 
C 

INTEGER  WIRE^LATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/CDIMEN/JNODESJEDGESJFACES 

COMMON/CDIMWR/JWCRDSJWSEGS 

COMMON/CONST/PLKNrILJWU04P^14PJEJWE04P^14PJU 

COMMON/CONSTl/KNl,JWU14P,X14PWILX14PI,JWE14P,X14PWU 

common/numint/xsleta,wght 

c 

EXTERNAL  MAGNLGTAREA.VDOT.MAPl 
EXTERNAL  SGNPOTJSGN.CDOT 


source  triangles 

DO  2005  NO-UFACES 
CALL  VTXCRDl(NOjmN) 

AREA1N  -  GTAREA(R  1  INFLATE) 

CALL  LENGTH(R1 1N.L1N) 

CALL  FACEDG1(N0E1N(1)E1N(2)E1N(3)) 


observation  triangles 

DO  2004  M0-1JFACES 
CALL  VTXCRD1(M0JR11M) 

AREA1M  -  GTAREA(R1 1M.PLATE) 

CALL  CENTER(R1 1M.RC1M.PLATE) 

CALL  LENGTH(RUMXIM) 

CALL  FACEDG1(M0,E1M(1),E1M(2),E1M(3)) 


compute  integrals 

CALL  NINT7(R11N^C1M,CVEC(CXSI,CETAJ>OT(CPHIJILN1301AREA1NDR) 
CALL  NINT7A(R1 1N,RC1M,CVEC1,CXSI1,CETA 1.POT.CPHI1, 

+  RLN1,R01,AREA1N,DR) 

DO  2003  N1-1.PLATE 
N(l)  -  MAP1(N0,N1,PLATE) 

N(2)  -  MAP  1  (N0.N  1 +PLATEJ>LATE) 

IF  (N(1)M.O.ORJ^(2)NEO)  THEN 
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P  -  ISGN(E1N(N1))  *  L1NCN1)/AREA1N  *  JI  *  X14PJE  *  CPHI  + 

+  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  JI  *  X14PWE  *  CPHI1 

DO  2001  1-1,3 

A1(D  -  (  RllNCU)  -  RllNCl,Nl)  )  *  CV EC  + 

+  (  R11NCU)  -  RllNCU)  )  *  CXSI  + 

+  (  RllNCU)  -  RllNCU)  )  *  CETA  + 

+  (  ROlCl)  -  R11NON1)  )  *  POT  +  RLNlCl) 

A2(I)  -  (  RllNCU)  -  R11N(XN1)  )  *  CVEC1  + 

+  C  RllNCU)  -  RllNCU)  )  *  CXSI1  + 

+  (  RllNCU)  -  RllNCU)  )  *  CETA1  + 

+  C  ROlCD  -  RllNCXNl)  )  *  POT  +  RLNlCl) 

AlCl)  -  ISGNCE1NCN1))  *  L1NCN  1)/C2*AREA1N)  *  AlCl) 

A2CI)  -  ISGNCE1NCN1))  *  L1NCN1)/C2*AREA1N)  *  A2CI) 

2001  CONTINUE 
C 

DO  2002  M1-1.PLATE 
MCI)  -  MAPlCM0^UJ>LATE) 

MC2)  -  MAPlCMOMl+PLATE^LATE) 

IF  CMC  l)-NE.O.ORJdC2).NE.O)  THEN 
CALL  PlRH0CRllMJrfl,RH01M) 

A  -  JI  *  JWU04P  *  CD0TCRH01MA1)  + 

+  JI  *  JWU14P  *  CD0TCRH01MA2) 

CXI  -  ISGNCE1MCM1)>L1MCM1XA+P) 

C 

IF  CDRLTL1MC1)ORL>RLTL1MC2).ORL>RLTL1MC3))  then 


do  the  7-pt  integration  over  the  observation  triangle 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-1,3 

R1MCJJ)  -  RIIMCJJ.I)  +  CR1 1M(JJ^)-R1  lM(JJ,l)>XSlCn)  + 

+  CR1 1MCJJ,3>R1  lMCJJ,l)>ETACn) 

RH01MCJJ)  -  R1MCJJ)-R11MCJJ,M1) 

2050  CONTINUE 

CALL  NINT7CR1  1N«R1M,CVEC,CXSLCETA4>OT,CPHI,RLN1,R01  AREAIN.TRASH) 
CALL  NINT7ACR11NJR1M,CVEC1,CXSI1,CETAU50T)CPHI1, 

+  RLN1.R01AREA1N, TRASH) 

P  -  ISGNCE1NCN1))  *  L1NCND/AREA1N  *  JI  *  X14PJE  *  CPHI  + 

+  ISGNCE1NCN1))  *  L1NCND/AREA1N  *  JI  *  X14PWE  *  CPHU 

DO  2049  1-13 

AlCl)  -  C  RllNCU)  -  R11NCUU)  )  *  CVEC  + 

+  C  R11NCL2)  -  RUNG,!)  )  *  CXSI  + 

+  C  RllNCU)  -  RllNCU)  )  *  CETA  + 

+  C  ROlCl)  -  R11NCLN1)  )  *  POT  +  RLNlCl) 

A2CI)  -  C  RllNCU)  -  R11NCLN1)  )  *  CVECl  + 

+  C  RllNCU)  -  RllNCU)  )  *  CXSI1  + 

+  C  RllNCU)  -  RllNCU)  )  *  CETA1  + 

+  C  ROlCD  -  R11NCLN1)  )  *  POT  +  RLNlCl) 

AlCl)  -  ISGNCE1NCN1))  *  L1NCN1)/C4*AREA1N)  *  AlCl) 

A2Q)  -  ISGNCE1NCN1))  *  L1NCN1)/C4*AREA1N)  *  A2Cl) 
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2049  CONTINUE 

A  -  JI  *  JWU04P  *  CDOT(RH01MAl)  + 

+  JI  *  JWU14P  *  CD0TCRH01MA2) 

CFX  -  ISGN(E  1M(M1))*L1M(M1 )/ AREA  1  M*( A+P) 

CF  -  CF  +  CFX*WGHT03) 

2051  CONTINUE 

CXI  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-1,2 
EXD  3001  K— 1,2 

IF  (M(X)mOANDiCT).NE.O)  THEN 
IKMCK)J^N(J))  THEN 

CZ(M(K)^(J))  -  CZCM(K),N(J))  +  SGNPOT(CXUJO/2 
CZCNOXMOO)  -  CZCN(J)AIOO)  +  SGNPOTCCXU^O/2 
FT.SF 

CZ(M(K),N(J))  -  CZGMCK)^(J))  +  SGNPOTCCXU.K) 
ENDIF 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

C  «»»«««—» 

WRTTE(57)  2* JUNKN S+NUNKN S+KUNKNS.0 
DO  147  J-1JUNKNS 
147  WRITEC57XCZCU)J-U) 

C  ************** 

C 

TYPE  V  CZ1  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL2CCZJUNKNS) 

C 

INTEGER  JUNKNS 
COMPLEX  JLAP3GNP0T 

COMPLEX  CVECKO,CXSIKO,CETAKOA1(3)A3(3),CDOT 
COMPLEX  CVECK1,CXSIK1,CETAK1A2(3)A4(3) 

COMPLEX  CZ(JUNKNSrJUNKNS),CX2,CF,CFX 
COMPLEX  KNUWU14PX14PWEJWE14PX14PWU 
REAL  PUCN JWU04PX 1 4PJEJWE04PX 1 4PJUX 1 4PI 
REAL  MAGNLGTAREAAREAIN.VDOTAREAIMTRASH 
REAL  DRJ>0TJ1LN1(3)^01(3)J.1M(3)JL1N(3) 

REAL  R1 1M(3,3),R1M(3),RC1M(3),RH01M(3),R1 1N(3,3) 

REAL  RK3)JUMRCM(3),RCMXRI(3) 
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REAL  XS(7)J5TA(7),WGHT(7) 

INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  LLKM2),M0,M1,N(2),N0,N1,MAP1,E1M(3),E1N(3),ISGN 
C 

INTEGER  WIREJ’LATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/CDIMEN/JNODESJEDGESJFACES 
COMMON/CDIMWR/JWCRDSJWSEGS 
COMMON/CONST/PUCNrJIJWU04P,X14PJEJWE04P,X14PJU 
C0MM0N/C0NST1/KN1,JWU14P,X14PWEX14PUWE14P>X14PWU 
COMMON/NUMINT /XSEETA,  W  GHT 
C 

EXTERNAL  MAGNLGTAREA.VDOTMAP1 
EXTERNAL  SGNPOTJSGN.CDOT 

source  triangles 

DO  2005  N0-1JFACES 
CALL  VTXCRD1(N0,R11N) 

AREA1N  -  GTAREA(R1  INFLATE) 

CALL  LENGTH(R11N,L1N) 

CALL  FACEDG1(N0,E1N(1),E1N(2),E1N(3)) 


observation  triangles 

DO  2004  MO-UFACES 
CALL  VTXCRD1(M0,R11M) 

AREA1M  -  GTAREA(R1 1M.PLATE) 

CALL  CENTER(R11MJRC1MJ>LATE) 

CALL  LENGTH(R1 1MJ.1M) 

CALL  FACEDGl(M0,ElM(l)fElM(2),ElM(3)) 


compute  integrals 

IFtM0.EQ.N0)  THEN 
CVECKO  -  0 

cxsnco  -  o 

CETAKO  -  0 
CVECK1  -  0 

cxsnci  -  o 

CETAK1  -  0 
ELSE 

CALL  NINT7B(R1  INJICIM.CVECKO.CXSIKO.CETAKOAREAlNDR) 
CALL  NINT7C(R11NJ1C1M,CVECK1, CXSIK1, CETAK1AREA1NDR) 
ENDIF 

DO  2003  N 1-1  .PLATE 
N(l)  -  MAP  1(N0,N  1  .PLATE) 

N(2)  -  MAP1(N0,N1+PLATEJLATE) 

IF  (N(l)mO.OR^(2)mO)  THEN 
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DO  2001  1-13 

AlO)  -  R11N0.1)  *  CVECKO  + 

+  (  R11N02)  -  R11N(U)  )  *  CXSIKO  + 

+  (  R11N03)  -  R11N(U)  )  *  CETAKO 

A2(I)  -  RllNai)  *  CVECK1  + 

+  (  R11N(U)  -  R11N0.1)  )  *  CXSIK1  + 

+  (  R11N03)  -  R11N0.1)  )  *  CETAK1 

RIG)  -  R11N(LN1) 

RIMRCMO)  -  RI(D  -  RC1M0) 

2001  CONTINUE 

CALL  CR0SS2(RC1NLRLRCMXRI) 

CALL  CR0SS3(RIMRCMA-1A3) 

CALL  CROSS3(RIMRCMA2A4) 

DO  2025  1-13 

AlO)  -  A3CI)  +  RCMXRI(I)  *  CVECKO 
A2(I)  -  A4Q)  +  RCMXRIO)  *  CVECK1 
Aid)  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  Aid) 

A2d)  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  A2d) 

2025  CONTINUE 

C 

DO  2002  M1-1.PLATE 
M(l)  -  MAPlCMO.MlJ’LATE) 

M(2)  -  MAP1(M0,M1+PLATEJ>LATE) 

IF  (M(l)NE.O.ORAl(2)mO)  THEN 
CALL  P1RH0(R11\LM1JRH01M) 

A  -  X14PI  *  (  CDOTCRHOIMAI)  +  CDOTCRHOlMA.2)  ) 

CX2  -  ISGN(E1M(M1))  *  L1MCM1)  *  A 
C 

IF  (DRJLTHM(l).ORJDRLTHM(2).ORJDRiTHM(3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-13 

R1M(JJ)  -  R11M(JJ,1)  +  (RllM(JJ3)-RllM(JJ,l))*XSl(n)  + 

+  (R1 1M(JJ3>R1 1M(JJ,1)>ETA(II) 

RH01MCJJ)  -  R1M(JJ)-R11M(JJ,M1) 

2050  CONTINUE 

IF(M0-EQN0)  THEN 
CVECKO  -  0 
CXSIKO  -  0 
CETAKO  -  0 
CVECK1  -  0 
cxsnci  -  o 
CETAK1  -  0 
ELSE 

CALL  NINT7B(R11NJR1M,CVECK0, CXSIKO, CETAK0AREA1N, TRASH) 

CALL  NINT7C(R11NR1M,CVECK1,CXSIK1,CETAK1AREA1N, TRASH) 

ENDIF 


DO  2049  1-13 
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AlG)  -  R11NG.1)  *  CVECKO  + 

+  (  R11N(U)  -  R11N04)  )  *  CXSKO  + 

+  C  R11N(U)  -  R11N(U)  )  *  CETAKO 

A2(l)  -  RllNttl)  *  CVECK1  + 

+  (  R11N02)  -  R11NG.1)  )  *  CXSIK1  + 

+  (  R11N0.3)  -  RllNai)  )  *  CETAK1 

RIG)  -  RllNG^l) 

RIMRCMG)  -  RIG)  -  R1MG) 

2049  CONTINUE 

CALL  CR0SS2(R1HRLRCMXRI) 

CALL  CROSS3GUMRCM.A1A3) 

CALL  CROSS3(RIMRCMA2A4) 

DO  2048  1-1,3 

AlG)  -  A3G)  +  RCMXRIG)  *  CVECKO 
A2G)  -  A4G)  +  RCMXRIG)  *  CVECK1 
AlG)  -  ISGNCE1NCN1))  *  L1N(N1)/(4*AREA1N)  *  AlG) 

A2G)  -  ISGNCE1NCN1))  *  L1N(N  1)/(4*AREA1N)  *  A2G) 

2048  CONTINUE 

A  -  X14PI  *  (  CD0T(RH01MA  l)  +  CD0TCRH01MA2)  ) 

CFX  -  ISGN(E1M(M1))  *  L1M(M1)/AREA1M  *  A 
CF  -  CF  +  CFX*WGHTOl) 

2051  CONTINUE 

CX2  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-U 
DO  3001  K— 1,2 

IF  (M(K)mOANDJ^CJ)mO)  THEN 

CZ(MGO,N(J))  -  CZCmGON(J))  +  SGNPOTCCX2JJ0/2 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

TYPE  V  CZ2  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL3(CZJUNKNSJCUNKNS) 

C 

INTEGER  JUNKNSJCUNKNS 
COMPLEX  JIAJiSGNPOT 
COMPLEX  CVEC,CXSLCETA,CPHLA1(3),CD0T 
COMPLEX  CZ(JUNKNSJCUNKNS),CX3,CF,CFX 
COMPLEX  KN1,JWU14P,X14PWEJWE14P,X14PWU 
REAL  PLKNJWU04P^14PJErJWE04P^14PJU^14PI 
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REAL  MAGNI,GTAREAAREA1N,VD0TAREA1M, TRASH 
REAL  DRJOTRLN  1(3) Ji0l(3)LlM(3)jLlN(3) 

REAL  R11M(3,3),R1M(3),RC1M(3),RH01M(3),R11N(3,3) 

REAL  XSI(7),ETA(7),WGHTC7) 

INTEGER  KNODESJCEDGESJCFACESJCWCRDSJCWSEGS 
INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  UKM(2)M0M1,N(2),N0,N1MAP1MAP2 
INTEGER  E1M(3)£1N(3)JSGN 
C 

INTEGER  WIRRPLATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/KDIMEN/KNODES,KEDGES,KFACES 

COMMON/KDIMWR/KWCRDSRWSEGS 

COMMON/CDIMEN/JNODESJEDGESJFACES 

COMMON/CDIMWR/JWCRDSJWSEGS 

COMMON/CONST/PUCNJUWU04PX14PJEJWE04PX14PJU 

COMMON/CONSTl/KNl,JWU14P,X14PWRX14PUWE14P,X14PWU 

COMMON/NUMINT/XSLETA,WGHT 

C 

EXTERNAL  MAGNI,GTAREA,VDOT  MAP  1 MAP2 
EXTERNAL  SGNPOTJSGN.CDOT 


source  triangles 

DO  2005  NO-IJCFACES 
CALL  VTXCRD2(N0R11N) 

AREA1N  -  GTAREA(R1  INFLATE) 

CALL  LENGTH(R11NJL1N) 

CALL  FACEDG2(N0^1N(1)E1N(2)E1N(3)) 


observation  triangles 

DO  2004  MO- 1JF ACES 
CALL  VTXCRDl(MORllM) 

AREA1M  -  GTAREA(R11M4>LATE) 

CALL  CENTER(R1  lMRClMJTATE) 

CALL  LENGTH(RIIMXIM) 

CALL  FACEDG1(M0£1M(1)E1M(2)E1M(3)) 


compute  integrals 

CALL  NINT7(R1 1NRC1M,CVEC,CXSI,CETA J>OT,CPHI, 

+  RLNIROI^REAINJDR) 

C 

DO  2003  Nl-1  .PLATE 
N(l)  -  MAP2(N0,N1,PLATE) 

N(2)  -  MAP2(N0,N1+PLATEJ>LATE) 

IF  (N(l)mO.ORN(2)mO)  THEN 
P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  JI  *  X14PJE  *  CPHI 
DO  2001  I-1J 


uuu 
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A1(D  -  (  R11N0.1)  -  R11NCI.N1)  )  *  CVEC  + 

+  (  R11N02)  -  R11N0.1)  )  *  CXSI  + 

+  (  R11NCU)  -  RllNd,l)  )  *  CETA  + 

+  (  ROlCl)  -  RllNCLNl)  )  *  POT  +  RLNlCD 

Aid)  -  ISGNCE1NCN1))  *  L1N(N1)/(2*AREA1N)  *  Aid) 

2001  CONTINUE 
C 

DO  2002  M1-1JPLATE 
M(l)  -  MAP1(M0,M1,PLATE) 

M(2)  -  MAP1CM0.M1+PLATEJPLATE) 

IF  (M(l)mO.ORJvl(2)mO)  THEN 
CALL  P1RH0CR11NLM1JIH01M) 

A  -  JI  *  JWU04P  *  CD0TCRH01MA1) 

CX3  -  ISGN(E1M(M1))*L1M(M1XA+P) 

C 

IF  (DRiTilM(l).ORDRXTUlM(2).ORDRXTHMC3))  THEN 

do  the  7-pt  integration  over  the  observation  triangle 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-1,3 

R1M(JJ)  -  R11MCJJ.1)  +  (RllM(JJ,2)-RllM(JJ,l)>XSl0l)  + 

+  (R1 1M(JJ,3)-R1  lM(JJ,l))*ETAdD 

RH01MCJJ)  -  R1M(JJ)-R1 1M(JJ,M1) 

2050  CONTINUE 

CALL  NINT7CR11NJ11M.CVEC,CXSLCETAJP0T,CPHL 
+  RLN1.R01.AREA1N, TRASH) 

P  -  KGNCE1NCN1))  *  L1N(N1)/AREA1N  *  JI  *  X14PJE  *  CPHI 
DO  2049  1-1,3 

A1(I)  -  (  RllNd.1)  -  R11NCLN1)  )  *  CVEC  + 

+  (  R11NCU)  -  R11N(I,1)  )  *  CXSI  + 

+  (  R11N(L3)  -  R11N(I,1)  )  *  CETA  + 

+  (  ROld)  -  R11NCLN1)  )  *  POT  +  RLNl(l) 

Aid)  -  ISGNCEINCNl))  *  L1N(N  1)/(4*AREA1N)  *  AlCD 
2049  CONTINUE 

A  -  JI  *  JWU04P  *  CD0T(RH01MA1) 

CFX  -  ISGN(E1M(M1))*L1M(M1)/AREA1M*(A+P) 

CF  -  CF  +  CFX*WGHTd3) 

2051  CONTINUE 

CX3  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-U 
DO  3001  K-U 

IF  (M(K)mOAND^l(J)mO)  THEN 
CZ(M(K),N(J))  -  CZCM(K)^(J))  +  SGNPOTCCX3JJC)/2 
ENDIF 

3001  CONTINUE 


Appendix  D.  EFIE2PC  Computer  Program 


168 


2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

TYPE  V  CZ3  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL4CCZJUNKNSJ4UNKNS) 

C 

INTEGER  JUNKNSJWNKNS 
COMPLEX  JLAJ’.SGNPOT 

COMPLEX  CVECl,CXSIl,CETAl,CPffllA2(3),CDOT 
COMPLEX  CZ(JUNKNSJWNKNS),CX4,CF,CFX 
COMPLEX  KN1JWU 1 4P,X  1 4PWEJWE1 4PX 1 4P WU 
REAL  PI*N,JWU04P,X14PJEJWE04P,X14PJU,X14PI 
REAL  MAGNI.GTAREAAJREA  1  N.VDOT  AREA  1  M,TRASH 
REAL  DRPOT,RLN1(3XR01(3),L1M(3),L1N(3) 

REAL  R11M(3,3)JR1M(3)JIC1M(3)JIH01M(3)4111N(33) 

REAL  XSI(7)ETA(7),WGHT(7) 

INTEGER  NNODESJ^EDGESJ^FACES^WCRDS^WSEGS 
INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  U^M(2),M0,M1,N(2),N0,N1,MAP,MAP1 
INTEGER  E1M(3)E1N(3)JSGN 
C 

INTEGER  WIREJLATE 
PARAMETER  ( WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/DIMEN/NNODESJ1EDGESJJFACES 

COMMON/DIMWR/NWCRDSJfWSEGS 

COMMON/CDIMEN/JNODESJEDGESrJFACES 

COMMON/CDIMWR/JWCRDSJWSEGS 

COMMON/CONST/PLKNrnjWU04P^C14PJErrWE04P^14PJU 

COMMON/CONST  1  /KN 1 JWU 1 4P,X  1 4P  WE,X  1 4PLTVVE 1 4P,X  1 4P  WU 

common/numint/xsleta,wght 

C 

EXTERNAL  MAGNLGT AREA,  VDOT.MAP  MAP  1 
EXTERNAL  SGNPOTJSGN.CDOT 
C 

C  source  triangles 
C 

DO  2005  N0-1  ,NF  ACES 
CALL  VTXCRDCNORUN) 

AREA1N  -  GTAREA(R1  IN  PLATE) 

CALL  LENGTH(RIINLIN) 

CALL  FACEDG(N0E1N(1)E1NC2)E1N(3)) 

C 

C  observation  triangles 
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C 

DO  2004  M0-1JFACES 
CALL  VTXCRDl(M0>Rl  1M) 

AREA1M  -  GTAREA(R1 1NLPLATE) 

CALL  CENTER(R1  lMJElClM^LATE) 

CALL  LENGTHCRl  1M4-1M) 

CALL  FACEDGl(MOJElM(l),ElM(2),ElM(3)) 

C 

C  compute  integrals 
C 

CALL  NINT7A(R1 1N.RC1M.CVEC1  ,CXSI  1  ,CETA1,P0T,CPHI1, 

+  RLN1,R01,AREA1N,DR) 

C 

DO  2003  N1-1PLATE 
N(l)  -  MAPCN0JJ1PLATE) 

N(2)  -  MAP(N0,N1+PLATEJ>LATE) 

IF  (N(l)m0.ORJ^(2)m0)  THEN 

P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  (-JI)  *  X14PWE  *  CPHI1 
DO  2001  1-13 

A20)  -  C  R11N(L1)  -  R11NON1)  )  *  CVEC1  + 

+  C  R11N(L2)  -  R11NG.1)  )  *  CXSI1  + 

+  (  R11N(I3)  -  R11N0.1)  )  *  CETA1  + 

+  (  R0l(l)  -  R11N(LN1)  )  *  POT  +  RLNlCl) 

A2(l)  -  ISGNCEIN(NI))  *  L1N(N1)/(2*AREA1N)  *  A2(I) 

2001  CONTINUE 
C 

DO  2002  M 1-1  .PLATE 
MCI)  -  MAPlCMOtMiPLATE) 

M(2)  -  MAPlCMOMl+PLATE^LATE) 

IF  (M(l).NE.O.ORM(2).NE.O)  THEN 
CALL  PIRHOCRl  lM^Il  JIH01M) 

A  -  -JI  *  JWU14P  *  CD0TCRH01MA2) 

CX4  -  ISGN(E1M(M1)>L1M(M1XA+P) 

C 

IF  (DRJLTHM(l).0RJDRLTL.lM(2).0RDILLTHM(3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-1,3 

R1M(JJ)  -  R11M(JJ,1)  +  (R1 1M(JJ3)-R1  lM(JJ,l)>XSl(n)  + 

+  (R1 1M(JJ,3)-R1  lM(JJ,l))*ETA(n) 

RHOlMdJ)  -  R1M(JJ)-R11M(JJ,M1) 

2050  CONTINUE 

CALL  NINT7A(R11N,R1M,CVEC1,CXSI1,CETA1,P0T,CPHI1, 

+  RLN1JR01.AREA1N, TRASH) 

P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  (-JI)  *  X14PWE  *  CPHI1 
DO  2049  1-13 

A2(I)  -  (  R11NCU)  -  R11NON1)  )  *  CVEC1  + 

+  (  R11N02)  -  R11NCL1)  )  *  CXSI1  + 
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+  (  R11N(U)  -  R11N0.1)  )  *  CETA1  + 

+  (  R01(I)  -  R11NON1)  )  *  POT  +  RLNlQ) 

A2(I)  -  ISGN(E1N(N1))  *  L1N(N1)/(4*AREA1N)  *  A2(l) 

2049  CONTINUE 

A  -  -JI  *  JWU14P  *  CD0T(RH01MA2) 

CFX  -  ISGN(E1M(M1)>L1M(M1)/AREA1M<A+P) 

CF  -  CF  +  CFX*WGHT0l) 

2051  CONTINUE 

CX4  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-1,2 
DO  3001  K-l a 

IF  (M(K)m0ANDN(J)NE.0)  THEN 

CZCMOONO))  -  CZCM(K)NCJ))  +  SGNPOT(CX4rJj0/2 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

TYPE  V  CZ4  COMPLETED1 
C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL5CCZJUNKNS) 

C 

INTEGER  JUNKNS 
COMPLEX  JLAJ\SGNPOT 

COMPLEX  CVECKO.CXSIKO.CETAKO A  l(3),A3(3),CDOT 
COMPLEX  CVECK1,CXSIK1,CETAK1A2(3)A4(3) 

COMPLEX  CZ(JUNKNSJUNKNS),CX5,CF,CFX 
COMPLEX  KN1JWU14PA14PWEJWE14PA14PWU 
REAL  PLKNJWU04PA14PJEJWE04PA14PJUA14PI 
REAL  MAGNLGTAREAAREA1N.VDOTAREA1M.TRASH 
REAL  DRJ*OTJRLN1(3),R01C3)JL1M(3)J-1NC3) 

REAL  R1  lM(3,3)lRlM(3),RClM(3)aRH01M(3),Rl  1N(3,3) 

REAL  RI(3)JUMRCM(3),RCMXRI(3) 

REAL  XSI(7)ETA(7),WGHT(7) 

INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  UJC^1(2)>I0AI1^(2)^0IN1MAP1£1M(3)E1N(3)4SGN 
C 

INTEGER  WTREJ>LATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/CDIMEN/JNODESJEDGESJFACES 
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COMMON/CDIMWR/JWCRDSJWSEGS 

COMMON/CONST/TIJCN,JUWU04P,X14PJEJWE04P,X14PJU 

COMMON/CONSTl/KNl,JWU14P,X14PWEJC14PUWE14P,X14PWU 

COMMON/NUMINT/XSLETA,WGHT 

EXTERNAL  MAGNI.GTAREA, VDOTMAP 1 
EXTERNAL  SGNPOTJSGN.CDOT 


source  triangles 


DO  2005  NO-IJFACES 
CALL  VTXCRD1(N0,R11N) 

AREA1N  -  GTAREACRl  INFLATE) 

CALL  LENGTH(RIINXIN) 

CALL  FACEDG1(N0E1N(1)E1N(2)E1N(3)) 


observation  triangles 

DO  2004  M0-1JFACES 
CALL  VTXCRD1(M0JU  1M) 

AREA1M  -  GTAREACR1  1MJ>LATE) 

CALL  CENTER(R1 1MJRC1MJPLATE) 

CALL  LENGTH(R1 1MJL1M) 

CALL  FACEDG1(M0£1M(1)£1M(2),E1M(3)) 

compute  integrals 

IF(M0.EQ.N0)  THEN 
CVECKO  -  0 
CXSIKO  -  0 
CETAKO  -  0 
CVECK1  -  0 
CXSIK1  -  0 
CETAK1  -  0 

ELSE 

CALL  NINT7B(R11NJRC1M,CVECK0, CXSIKO, CETAKOA^EAINJDR) 
CALL  NINT7C(R11NJ1C1M,CVECK1,CXSIK1,CETAK1AREA1NX)R) 

ENDIF 

DO  2003  N1-1.PLATE 
N(l)  -  MAPlCNONl^LATE) 

N(2)  -  MAP1(N0N  l+PLATEJLATE) 

IF  CN(l)mO.OR^(2)NEO)  THEN 
DO  2001  1-1,3 

AlG)  -  R11NCU)  *  CVECKO  + 

+  (  R11N(L2)  -  R11NG.1)  )  *  CXSIKO  + 

+  (  R11N(L3)  -  RllN(I,l)  )  *  CETAKO 

A2(I)  -  R11NG.1)  *  CVECK1  + 

+  (  R11N(L2)  -  R11NG.1)  )  *  CXSIK1  + 

+  (  RllNCU)  -  R11NCL1)  )  *  CETAK1 

RI(I)  -  RllNGjU) 

RIMRCM(I)  -  RIG)  -  RC1MG) 


nnn 
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2001  CONTINUE 

CALL  CR0SS2(RC1\LRLRCMXRI) 

CALL  CR0SS3(RIMRCMA-  1.A3) 

CALL  CROSS3CRIMRCNLA2A.4) 

DO  2025  1-1,3 

A1(I)  -  A3d)  +  RCMXRI(I)  *  CVECKO 
A2(I)  -  A4(I)  +  RCMXRlCl)  *  CVECK1 
Aid)  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  Aid) 
A2d)  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  A2(l) 
2025  CONTINUE 

C 

DO  2002  Ml- 1  .PLATE 
M(l)  -  MAP1(M0,M1,PLATE) 

M(2)  -  MAPlCMOMl+PLATE^LATE) 

IF  (M(1).NE.O.ORAI(2).NE.O)  THEN 
CALL  P1RH0CR11MM1JIH01M) 

A  -  X14PI  *  (  CDOT(RHOL\LAl)  +  CDOT(RHOlM,A2)  ) 
CX5  -  ISGN(E1M(M1))  *  L1M(M1)  *  A 
C 

IF  (DRL,TJ-1M(1).0RDRXTI.1M(2).0RDRXTL1MC3))  THEN 


do  the  7-pt  integration  over  the  observation  triangle 

CF  -  0 
CFX  -  0 
DO  2051  n-1,7 
DO  2050  JJ-U 

R1M(JJ)  -  RllM(JJ,l)  +  (RllM(JW>-RllM(JJ,l))*XSlCn)  + 

+  (RllM(JJ,3>RllM(JJ.l))*ETAdD 

RH01MOJ)  -  R1M(JJ>-R11M(JJ,M1) 

2050  CONTINUE 

EF(MO.EQ.NO)  THEN 
CVECKO  -  0 
cxsnco  -  o 

CETAKO  -  0 
CVECK1  -  0 

cxsna  -  o 

CETAK1  -  0 
FIAF. 

CALL  NINT7BCR1 1NJ11M.CVECK0, CXSKO, CETAK0AREA1N, TRASH) 
CALL  NINT7C(R11NJUM,CVECK1,CXSIK1>CETAK1AREA1N, TRASH) 
ENDIF 

DO  2049  I-l^ 

Aid)  -  RllNai)  *  CVECKO  + 

+  (  R11N(U)  -  R11N(I.1)  )  *  CXSDCO  + 

+  (  R11NCL3)  -  RllNd,l)  )  *  CETAKO 

A2(I)  -  R11N(U)  *  CVECK1  + 

+  (  R11N(U)  -  RllNd.l)  )  *  CXSHC1  + 

+  (  R11NCU)  -  R11N(I,1)  )  *  CETAK1 

RI(I)  -  R11N(LN1) 

RIMRCMd)  -  Rid)  -  RIMd) 

2049  CONTINUE 
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CALL  CR0SS2(RlM4ORCMXRI) 

CALL  CR0SS3(RIMRC\LA1A3) 

CALL  CROSS 3(RIMROvLA2,A4) 

DO  2048  I-U 

AlG)  -  A3(I)  +  RCMXRlG)  *  CVECKO 
A2(I)  -  A40)  +  RCMXRICI)  *  CVECK1 
AlG)  -  ISGN(E1N(N1))  *  L1N(N1)/C4*AREA1N)  *  AlG) 
A2G)  -  ISGN(EINCNI))  *  L1N(N1)/(4*AREA1N)  *  A2G) 
2048  CONTINUE 

A  -  X14PI  *  (  CD0TG*H01M,Al)  +  CD0T(RH01MA2)  ) 
CFX  -  ISGN(E1M(M1))  *  L1M(M1)/AREA1M  *  A 
CF  -  CF  +  CFX*WGHTOl) 

2051  CONTINUE 

CX5  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-1,2 
DO  3001  K*»l^ 

IF  (MGOmOANDJ^(J)mO)  THEN 

CZCNOXMGO)  -  CZCNCJ)jvf(K))  +  SGNPOT(CX5rJJC)/2 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

C  ************** 

OPENGTLE~’CZ2\STATUS-,NEW’JDISroSE«T)ELETE\ 

+  UNIT-22>FORM-'UNFORMATTED') 

DO  147  J-1JUNKNS 
147  WRTTE(22XCZ(U)J-UUNKNS) 

C  . »».»««.♦ 

c 

TYPE  V  CZ5  COMPLETED* 

C 

RETURN 

END 


C 

SUBROUTINE  ZPLPL6(CZJUNKNS) 

C 

INTEGER  JUNKNS 
COMPLEX  JLAJ^GNPOT 
COMPLEX  CVEC,CXSI,CETA,CPHI^l(3),CDOT 
COMPLEX  CVEC1,CXSI1,CETA1,CPHUA2(3) 

COMPLEX  CZ(JUNKNSrIUNKNS),CX6,CF,CFX 
COMPLEX  KN1JWU14P,X14PWEJWE14P,X14PWU 
REAL  PI>KNrJWU04P^C14PJErrWE04P>X  1 4PJU.X  14PI 
REAL  MAGNLGTAREA^AREA  1  N.VDOT AREA  1 M, TRASH 
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REAL  DRJJOT,RLN  1(3),R01(3),L1M(3),L1N(3) 

REAL  R11M(3,3),R1M(3),RC1M(3),RH01M(3XR11N(3,3) 

REAL  XSI(7)£TA(7),WGHT(7) 

INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  UKM2),M0,M1,N(2),N0,N1,MAP1,E1M(3),E1N(3),ISGN 
C 

INTEGER  WIREJ’LATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/CDIMEN/JNODESJEDGESJFACES 

COMMON/CDIMWR/JWCRDStJWSEGS 

COMMON/CONST/PIJKNJUWU04P,X14PJEJWE04P>X14PJU 

COMMON/CONSTl/KNl,JWU14P,X14PWiyC14PUWE14P,X14PWU 

COMMON/NUMINT/XSI£TA,WGHT 

C 

EXTERNAL  MAGNI,GTAREA,VD0TMAP1 
EXTERNAL  SGNPOTJSGN.CDOT 


source  triangles 

DO  2005  NO-UFACES 
CALL  VTXCRD1(N0IR11N) 

AREA1N  -  GTAREA(R1  INFLATE) 

CALL  LENGTH(RIINLIN) 

CALL  FACEDG1(N0£1N(1)JE1N(2)JE1N(3)) 


observation  triangles 

DO  2004  M0-1JFACES 
CALL  VTXCRDl(MOJRllM) 

AREA1M  -  GT AREA(R  1 1  M.PLATE) 

CALL  CENTER(R1  1MJIC1M.PLATE) 

CALL  LENGTH(RIIMXIM) 

CALL  FACEDG1(M0JE1M(1)E1M(2),E1M(3)) 


compute  integrals 

CALL  NINT7(R1  lN^ClM,CVEC,CXSI,CETAJK)T,CPHItRLNlJl01^REAlNL)R) 
CALL  NINT7A(R11N,RC1M,CVEC1,CXSI1,CETA1,P0T,CPHI1, 

+  RLNl.ROl.AREAlN.DR) 

DO  2003  N1-1.PLATE 
N(l)  -  MAPKN0JI1FLATE) 

N(2)  -  MAP1(N0^1+PLATE^LATE) 

IF  (N(l).NE.O.OR.N(2).NE.O)  THEN 

P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  (-JI)  *  X14PJU  *  CPHI  + 

+  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  (-JI)  *  X14PWU  *  CPffll 

DO  2001  1—1,3 

A1(I)  -  (  R11N04)  -  R11N(EN1)  )  *  CVEC  + 

+  (  R11N(U)  -  R11N(I,1)  )  *  CXSI  + 

+  (  R11N(U)  -  R11N(I,1)  )  *  CETA  + 
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+  (  ROlCD  -  RllNCLNl)  )  *  POT  +  RLNlCl) 

A2(I)  -  (  R11NCU)  -  RllNCLNl)  )  *  CVEC1  + 

+  (  R11NCU)  -  RllNd.1)  )  *  CXSI1  + 

+  (  RllNCU)  -  RllNd.1)  )  *  CETA1  + 

+  (  ROlCl)  -  RllNCLNl)  )  *  POT  +  RLNlCl) 

A1(I)  -  ISGN(E1N(N1))  *  L1N(N  1)/(2*AREA1N)  *  A1(I) 

A2d)  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  A2d) 

2C01  CONTINUE 
C 

DO  2002  M1-1JPLATE 
M(l)  -  MAPlCMO.Ml.PLATE) 

M(2)  -  MAPlCMO,Ml+PLATEJ>LATE) 

IF  (M(l)mO.OILM(2)mo)  THEN 
CALL  P1RH0(R11M,M1,RH01M) 

A  -  -JI  *  JWE04P  *  CD0TXRH01MA-1)  + 

+  C-JI)  *  JWE14P  *  CDOT(RHO  1 KLA2) 

CX6  -  ISGNCE1M(M1))*L1M(M1XA+P) 

c 

IF  (DRJLTJL1M(1).0RJDRJLTHM(2).0RDRLTHM(3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-U 

R1M(JJ)  -  RIIMCJJ.I)  +  (RllM(JJf2)-RllM(JJ,l))*XSlCn)  + 

+  GmM(jj,3miM(jj,i)mA(n) 

RHOIM(JJ)  -  R1M(JJ)-R1 1MCJJ.M1) 

2050  CONTINUE 

CALL  NINT7(R1 1N4UM,CVEC,CXSI,CETAJ>OT,CPHI31LN1^01>AREA1N, TRASH) 

CALL  NINT7A(RllNJklM,CVECl,CXSIl,CETAlJPOT,CPHIl, 

+  RLN1.R01.AREA1N, TRASH) 

P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  (-JI)  *  X14PJU  *  CPHI  + 

+  ISGN(E1N(N1))  *  L1N(N  1)/AREA1N  *  (-JI)  *  X14PWU  *  CPHI1 

DO  2049  1-1,3 

Aid)  -  (  RllNd.1)  -  RllNd.Nl)  )  *  CVEC  + 

+  (  R11N(L2)  -  R11N(I,1)  )  *  CXSI  + 

+  (  R11NCL3)  -  RllNd.1)  )  *  CETA  + 

+  (  ROld)  -  RllNCLNl)  )  *  POT  +  RLNld) 

A2d)  -  (  R11NCL1)  -  RllNCLNl)  )  *  CVEC1  + 

+  (  R11NCL2)  -  R11NCL1)  )  *  CXSI1  + 

+  (  R11NCU)  -  RllN(Ll)  )  *  CETA1  + 

+  (  ROKD  -  RllNCLNl)  )  *  POT  +  RLNlCl) 

Aid)  -  ISGNCE1NCN1))  *  L1NCN1)/C4*AREA1N)  *  AlCl) 

A2CI)  -  ISGNCE1NCN1))  *  L1NCN1)/C4*AREA1N)  *  A2CI) 

2049  CONTINUE 

A  -  -JI  *  JWE04P  *  CDOTCRHOlMA-l)  + 

+  C-JI)  *  .TWE14P  *  CD0TCRH01MA2) 

CFX  -  ISGNCE1M(M1)>L1MCM1)/AREA1M*CA+P) 

CF  -  CF  +  CFX*WGHTdl) 

2051  CONTINUE 
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CX6  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-1,2 
DO  3001  K»1 ,2 

IF  CM(K)mOANDJ^(J)mO)  THEN 
IF(M(K).NEN(J))  THEN 

CZCM(K)XJ))  -  CZ(M(K)XJ))  +  SGNPOTCCX6JTJC)/2 
CZ(N(J),M(K))  -  CZCnOXMOO)  +  SGNPOTCCX6JJ0/2 
£LSE 

CZCMCK),NCJ))  -  CZ(M(K),N(J))  +  SGNPOT(CX6JJC) 

ENDIF 

ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

C  ************** 

OPENtFILEVCZ6\STATUS-7^EW,£)ISPOSE-T)ELETE\ 

+  UNir-26JFORM-UT^FORMATTED’) 

DO  147  J-1JUNKNS 
147  WRTTE(26XCZ(U)J-U) 

C  ************** 

c 

TYPE  V  CZ6  COMPLETED1 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL7(CZrJUNKNS4CUNKNS) 

C 

INTEGER  JUNKNSJCUNKNS 
COMPLEX  JLAJ\SGNPOT 

COMPLEX  CVECKO,CXSIKO,CETAKOA1(3)A3(3),CDOT 
COMPLEX  CZ(JUNKNSJCUNKNS),CX7,CF,CFX 
COMPLEX  KN1JWU14PA14PWEJWE14P.X14PWU 
REAL  PLKNrJWU04P^C  14PJEUWE04P^  1 4PJU.X  1 4PI 
REAL  MAGNLGT AREAA-REA  1N.VDOT AREA  1M.TRASH 
REAL  DRPOTJRLN1(3)A01(3)JL1M(3)J.1N(3) 

REAL  R1 1M(3,3)A1M(3)JIC1M(3)JIH01M(3)^1 1N(3,3) 

REAL  RJ(3),RIMRCM(3)>RCMXRI(3) 

REAL  XSI(7),ETA(7),WGHT(7) 

INTEGER  KNODESJCEDGES4CFACES4CWCRDSJCWSEGS 
INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  U3CM(2),MO)M1K2)NON1Jv1AP1MAP2 
INTEGER  E1M(3),E1N(3),ISGN 
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INTEGER  WIREJ>LATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/KDIMEN/KNODESJKEDGESJKFACES 
COMMON  /KDIMWR/KW  CRDSJCW  SEGS 
COMMON/CDMEN/JNODESJEDGESrJFACES 
COMMON/CDIMWR/JW  CRDSJW  SEGS 
COMMON/CONST/PUCNJIfJWU04P,X14PJE1JWE04P1X14PJU 
COMMON/CONSTl/KNUWU14P^14PWE^a4PUWE14P,X14PWU 
COMMON/NUMINT/XSLETAWGHT 
C 

EXTERNAL  MAGNLGTAREA, VDOTMAP 1 MAP2 
EXTERNAL  SGNPOTJSGN.CDOT 
C 

C  source  triangles 
C 

DO  2005  NO-1JSCFACES 
CALL  VTXCRD2(N0JR1  IN) 

AREA1N  -  GTAREA(R1  INFLATE) 

CALL  LENGTH(R11N,L1N) 

CALL  FACEDG2(N0^1N(1)JE1N(2)E1N(3)) 

C 

C  observation  triangles 
C 

DO  2004  MO-1JFACES 
CALL  VTXCRD1(M0JU1M) 

AREA1M  -  GTAREA(R1  1M.PLATE) 

CALL  CENTER(R11M^C1MJ>LATE) 

CALL  LENGTH(R11MJL1M) 

CALL  FACEDGl(M0JElM(lXElM(2),ElM(3)) 

C 

C  compute  integrals 
C 

CALL  NINT7B(R1 1N^C1M,CVECK0,CXSIK0,CETAJC0AREA1NL)R) 

C 

DO  2003  N1-1.PLATE 
N(l)  -  MAP2(N0,N1,PLATE) 

N(2)  -  MAP2(N0,N  1+PLATE^LATE) 

IF  (N(l)mO.ORJ^(2)mO)  THEN 
DO  2001  1-13 

Al(I)  -  RUN0.1)  *  CVECKO  + 

+  (  RllNOU)  -  R11N(L1)  )  *  CXSIKO  + 

+  (  R11N03)  -  R11N0.1)  )  *  CETAKO 

RIO)  -  R11N(LN1) 

RIMRCMd)  -  Rid)  -  RC1M(I) 

2001  CONTINUE 

CALL  CR0SS2(RC1M,RI,RCMXRI) 

CALL  CR0SS3(RIMRCMA1A3) 

DO  2025  1-13 

Aid)  -  A3d)  +  RCMXRld)  *  CVECKO 

Aid)  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  Al(l) 
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2025  CONTINUE 
C 

DO  2002  M1-1.PLATE 
M(l)  -  MAP1(M0,M1,PLATE) 

M(2)  -  MAP1(M0,M1+PLATEJ>LATE) 

IF  (M(l)mO.ORJvlC2)mo)  THEN 
CALL  P1RH0(R11\LM1,RH01M) 

A  -  X14PI  *  CDOTCRHOlMA-1) 

CX7  -  BGN(E1M(M1))  *  L1M(M1)  *  A 
C 

IF  (DRXTX1M(1).0RDRXTU1M(2).0RDRXTU1M(3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-U 

R1M(JJ)  -  R11M(JJ,1)  +  (RllM(JJ^>RUM(JJ,l)>XSl(n)  + 

+  CR1 1M(JJ,3)-R1  lM(JJ,l))*ETA(n) 

RHOIM(JJ)  -  R1M(JJ>R11M(JJ,M1) 

2050  CONTINUE 

CALL  MNT7BCR11N,R1M,CVECK0,CXSIK0,CETAK0AREA1N,TRASH) 

DO  9049  T-, 1  7 

AlCl)  -  RllNai)  *  CVECKO  + 

+  (  R11N(U)  -  RllNai)  )  *  CXSK.0  + 

+  (  R11NCU)  -  RllNai)  )  *  CETAKO 

RICH  -  R11NON1) 

RIMRCMQ)  -  RI(I)  -  R1M0) 

2049  CONTINUE 

CALL  CR0SS2(R1MJU,RCMXRI) 

CALL  CR0SS3(RIMRCMA1A3) 

DO  2048  1-1,3 

A1(I)  -  A3d)  +  RCMXRId)  *  CVECKO 

Aid)  -  ISGN(E1N(N1))  *  L1N(N1)/(4*AREA1N)  *  Aid) 

2048  CONTINUE 

A  -  X14PI  *  CD0TCRH01MA.1) 

CFX  -  ISGN0E1MCMD)  *  L1M(M1)/AREA1M  *  A 
CF  -  CF  +  CFX*WGHTdl) 

2051  CONTINUE 

CX7  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-U 
DO  3001  K-1,2 

IF  (M(K).NE.OAND.N(J).NE.O)  THEN 

CZ(M(K),N(J))  -  CZ(M(K;),N(J))  +  SGNPOT(CX7rrjC)/2 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
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ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

TYPE  V  CZ7  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPU>L8(CZrJUNKNSJWNKNS) 

C 

INTEGER  JUNKNS.NUNKNS 
COMPLEX  JLA^SGNPOT 

COMPLEX  CVECK1,CXSIK1,CETAK1A2C3)>A4(3),CD0T 
COMPLEX  CZ(JUNKNS>NUNKNS),CX8,CF1CFX 
COMPLEX  KN1,JWU14P,X14PWEJWE14P,X14PWU 
REAL  PLKNJWU04P,X14PJEJWE04P,X14PJU,X14PI 
REAL  MAGNI.GTAREAAREA  1N.VDOT AREA  1 M, TRASH 
REAL  DR,POT,RLN1(3),R01(3),L1M(3),L1N(3) 

REAL  R1 1M(3,3),R1M(3),RC1M(3),RH01M(3),R1 1N(3,3) 

REAL  RI(3)JUMRCM(3)JRCMXRIC3) 

REAL  XSI(7)ETA(7),WGHT(7) 

INTEGER  NNODESJ'IEDGES.NFACESJIWCRDS.NWSEGS 
INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  UJCM(2)^10^1lX2)^0^1MAP^IAPl 
INTEGER  E1M(3)E1N(3)JSGN 
C 

INTEGER  WIREJLATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/DIMEN/NNODESJNEDGESJ4FACES 

COMMON/DIMWR/NWCRDSJvWSEGS 

COMMON/CDIMEN/JNODESJEDGESJFACES 

COMMON  /CDIMWR/ JWCRDSJW  SEG  S 

COMMON/ CONST/PIJCN  JIJWU  04P.X  1 4PJETJWE04P,X  1 4PJU 

COMMON/CONST1/KN 1 JWU 1 4P,X  14P  WE^C  1 4PLJWE 1 4P,X  1 4P  WU 

common/numint/xsleta,wght 

C 

EXTERNAL  MAGNLGTAREA,VD0T,MAP,MAP1 
EXTERNAL  SGNPOTJSGN.CDOT 
C 

C  source  triangles 
C 

DO  2005  N0-1.NFACES 
CALL  VTXCRD(N0,R1  IN) 

AREA1N  -  GTAREA(R1  INFLATE) 

CALL  LENGTH(RIINUIN) 

CALL  FACEDG(N0E1N(1)E1N(2)E1N(3)) 

C 

C  observation  triangles 
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C 

DO  2004  M0-1JFACES 
CALL  VTXCRD1(M0,R1 1M) 

AREA1M  -  GTAREA(R  1 1 M.PLATE) 

CALL  CENTER(R11\LRC1MJ>LATE) 

CALL  LENGTH(RIIMXIM) 

CALL  FACEDGl(M0,ElM(l),ElM(2),ElM(3)) 

C 

C  compute  integrals 
C 

CALL  NINT7CCRllN,RClMtCVECKl,CXSIKl,CETAKl>AREAlN,DR) 

C 

DO  2003  N1-1JPLATE 
NCl)  -  MAP(N0,N1,PLATE) 

N(2)  -  MAP(N0,N  l+PLATE^LATE) 

IF  (N(l)mO.OR^(2)mO)  THEN 
DO  2001  1-1,3 

A2Q)  -  R11N0.1)  *  CVECK1  + 

+  (  RiiNCu)  -  RiiNai) )  *  CXSIK1  + 

+  (  R11N03)  -  RllNai)  )  *  CETAK1 

RKD  -  R11NCLN1) 

RIMRCMCO  -  RIQ)  -  RCIMd) 

2001  CONTINUE 

CALL  CR0SS2(RC1MJU,RCMXRI) 

CALL  CROSS3(RIMRC\LA2A4) 

DO  2025  1-13 

A2d)  -  A4d)  +  RCMXRId)  *  CVECK1 

A2d)  -  ISGNCE1NCN1))  *  L1N(N1)/(2*AREA1N)  «  A2d) 

2025  CONTINUE 

C 

DO  2002  M1-1JPLATE 
M(l)  -  MAPlCMOAUJPLATE) 

M(2)  -  MAP  l(MO,M  1 +PLATEJPLATE) 

IF  (M(l)mO.ORJ4(2)mO)  THEN 
CALL  P1RH0(R11M,M1,RH01M) 

A  -  -X14PI  *  CD0TCRH01MA2) 

CX8  -  ISGN(E1M(M1))  *  L1M(M1)  *  A 
C 

IF  (DRLTUMC  1  ).ORX)RXT .L  1  M(2).0RJDR1TL  1  M(3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-13 

R1M(JJ)  -  R11M(JJ,1)  +  (RllM(JJ3>-RllM(JJ,l)>XSl(n)  + 

+  (R1 1M(JJ3)-R1  lM(JJ,l)>ETA(n) 

RH01MCJJ)  -  R1M(JJ)-R11M(JJ,M1) 

2050  CONTINUE 

CALL  NINT7C(R11N^1M,CVECK1,CXSIK1,CETAK1>AREA1N, TRASH) 

DO  2049  1-13 
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A2(I)  -  R11N0.1)  *  CVECK1  + 

+  (  R11NCU)  -  R11NCU)  )  *  CXSK1  + 

+  (  R11N(U)  -  R11N0.1)  )  *  CETAK1 

RlQ)  -  R11N(LN1) 

RIMRCM(I)  -  RI(I)  -  R1M(I) 

2049  CONTINUE 

CALL  CR0SS2(R1MRIRCMXRI) 

CALL  CROSS3(RIMRCMA2A4) 

DO  2048  1*1 3 

A2(I)  -  A40)  +  RCMXRICI)  *  CVECKl 

A2(l)  -  ISGN(E1N(N1))  *  L1N(N1)/(4*AREA1N)  *  A2(l) 

2048  CONTINUE 

A  -  -X14PI  *  CD0TCRH01MA2) 

CFX  -  ISGN(E1M(M1))  *  L1M(M1)/AREA1M  *  A 
CF  -  CF  +  CFX*WGHTOl) 

2051  CONTINUE 

CX8  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-1,2 
DO  3001  K-1,2 

IF  (M(K)m0jymNCONE.0)  THEN 

CZ(M(K),N(J))  -  CZCMOO^CJ))  +  SGNPOT(CX8rJ>K)/2 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

TYPE  V  CZ8  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL9(CZJUNKNS>KUNKNS) 

C 

INTEGER  JUNKNSJCUNKNS 
COMPLEX  JIAP^GNPOT 
COMPLEX  CVEC,CXSI,CETA,CPHLA  l(3),CDOT 
COMPLEX  CZCJUNKNSjCUNKNS),CX9,CF,CFX 
COMPLEX  KNUWU14P^C14PWEJWE14PX14PWU 
REAL  PI^CNJWU04P^14PJETJWE04PX14PJUX14PI 
REAL  MAGNI.GTAREAA-REA  1N.VDOT AREA  1 M, TRASH 
REAL  DRROTRLN1(3)J101(3)JL1MC3)JL1NC3) 

REAL  R1 1M(3,3)R1M(3)RC1M(3)RH01M(3)R1 1N(3,3) 

REAL  XSI(7),ETA(7),WGHT(7) 

INTEGER  KNODESJCEDGESRFACESRWCRDSRWSEGS 
INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 


onn  ooo  noo 
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INTEGER  UJCM2),M0,M1,N(2),N0,N1,MAP1,MAP2 
INTEGER  E1M(3)£1N(3)JSGN 
C 

INTEGER  WIREJ>LATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/KDIMEN/KNODES>KEDGES>KFACES 

COMMON/KDIMWR/KWCRDSJCWSEGS 

COMMON/CDIMEN/JNODESJEDGESJFACES 

COMMON/CDIMWR/JWCRDSJWSEGS 

COMMON/CONST/PLKNtJIrTWU04P,X14PJErrWE04P,X14PJU 

COMMON/CONSTl/KNlrJWU14P^14PWE1X14PUWE14P^.14PWU 

COMMON/NUMINT/XSItETA,WGHT 

C 

EXTERNAL  MAGNLGT AREA, VDOTMAP 1 ,MAP2 
EXTERNAL  SGNPOTJSGN.CDOT 


source  triangles 

DO  2005  N0-1JFACES 
CALL  VTXCRD1(N0R11N) 

AREA1N  -  GTAREA(R1  INFLATE) 

CALL  LENGTH(R11N,L1N) 

CALL  FACEDG1(N0E1N(1)£1N(2)E1N(3)) 


observation  triangles 

DO  2004  M0-1JCFACES 
CALL  VTXCRD2(M0JR11M) 

AREA1M  -  GTAREA(R11MJ>LATE) 

CALL  CENTER(R1  lM^RClM^LATE) 

CALL  LENGTH(R11MJJ1M) 

CALL  FACEDG2(M0£1M(1)JE1M(2)^1M(3)) 


compute  integrals 


CALL  NINT7(R1 1NRC1M,CVEC,CXSLCETAJ>0T,CPHL 
+  RLN1R01^REA1NJ5R) 

C 

DO  2003  N1-1JPLATE 
N(l)  -  MAP1(N0J^1JPLATE) 

N(2)  -  MAP1(N0,N1+PLATEJ3LATE) 

IF  (N(l)mO.ORJ^(2)mO)  THEN 
P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  JI  *  X14PJE  *  CPHI 
DO  2001  1-1,3 

A1(I)  -  (  R11N(L1)  -  R11N(LN1)  )  *  CVEC  + 

+  (  R11N(U)  -  R11N(L1)  )  *  CXSI  + 

+  (  R11N(L3)  -  R11N(L1)  )  *  CETA  + 

+  (  R01(D  -  R11N(LN1)  )  *  POT  +  RLNl(I) 

Aid)  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  A1(I) 

2001  CONTINUE 
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C 

DO  2002  Ml-IJ’LATE 
M(l)  -  MAP2(M0,M1,PLATE) 

M(2)  -  MAP2(M0M1+PLATEJPLATE) 

IF  (M(1)M.O.ORM(2)M.O)  THEN 
CALL  PIRHOCRIINUIIJIHOIM) 

A  -  JI  *  JWU04P  *  CDOTCRHOIMAI) 

CX9  -  ISGN(E1M(M1)>L1M(M1XA+P) 

C 

IF  CDRXTL1M(1).0RDRXTL1M(2).0RX)RLTL1MC3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-1,3 

R1M(JJ)  -  R11MCJJ.1)  +  (RllM(JJ^)-RllM(JJ,l)>XSI(n)  + 

+  (R 1 1M(JJ,3>R  1 1MCJJ,  1  )>ETA(II) 

RH01M(JJ)  -  R1M(JJ)-R1 1M(JJ,M1) 

2050  CONTINUE 

CALL  NINT7CR1  IN JUM.CVEC.CXSI.CETA.POT.CPHI, 

+  RLN 13101  AREA  IN, TRASH) 

P  -  ISGNCE1NCN1))  *  L1N(N1)/AREA1N  *  JI  *  X14PJE  *  CPHI 
DO  2049  1-1,3 

AlOO  -  C  R11N0.1)  -  RllNO^l)  )  *  CVEC  + 

+  (  R11N(U)  -  RllNai)  )  *  CXS  + 

+  C  R11NCU)  -  RllNCU)  )  *  CETA  + 

+  (  R01(I)  -  R11NON1)  )  *  POT  +  RLNlO) 

Aid)  -  ISGN(E1N(N1))  *  L1N(N1)/(4*AREA1N)  *  Aid) 

2049  CONTINUE 

A  -  JI  *  JWU04P  *  CD0TCRH01MA1) 

CFX  -  ISGN(E1M(M1)>L1M(M1)/AREA1M*(A+P) 

CF  -  CF  +  CFX*WGHTCn) 

2051  CONTINUE 

CX9  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-U 
DO  3001  K-1,2 

IF  (MCK)mOAND^(J)mO)  THEN 
CZ(N(J),M(K))  -  CZ(N(J)AICK))  +  SGNPOTCCX9J30/2 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
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184 


i 

* 

\ 


c 


147 
C  * 
C 

C 


C 

C 


C 


c 


OPEN(FILE-’CZ3’,ST  ATU  S-’NEW’ JDISPOSE-'DELETE’, 
+  UNIT-23EORM-TJNFORMATTED’) 

DO  147  J-1JCUNKNS 
WRITEC23XCZ(Xl)J-UUNKNS) 


TYPE  *,’  CZ9  COMPLETED* 

RETURN 

END 

SUBROUTINE  ZPLPLIOCCZJUNKNS^CUNKNS) 

INTEGER  JUNKNSJK.UNKNS 
COMPLEX  JIAP^GNPOT 

COMPLEX  CVECKO,CXSIKO,CETAKOA1(3)A3(3),CDOT 
COMPLEX  CZXJUNKNSJK.UNKNS),CX10,CF,CFX 
COMPLEX  KN1,JWU14P,X14PWEJWE14P,X14PWU 
REAL  PIJCNJWU04P,X14PJErJWE04P^.14PJU^14PI 
REAL  MAGNI.GTAREAAREA1N.VDOTAREA1M, TRASH 
REAL  DRJHDT^LN  1(3)J101(3)JL1M(3) J-1N(3) 

REAL  R1  lM(3,3)JUM(3)jtClM(3),RH01M(3),Rl  1N(3,3) 
REAL  RI(3)JUMRCM(3)JICMXRI(3) 

REAL  XSI(7)ETAC7),WGHT(7) 

INTEGER  KNODESJCEDGESJCF ACES JCW CRDSJCW SEGS 
INTEGER  JNODESJEDGESJFACESJW  CRDSJW  SEGS 
INTEGER  UAM(2)M0^HN(2)^0^1MAP1MAP2 
INTEGER  E1M(3)E1N(3)JSGN 

INTEGER  WIREJPLATE 
PARAMETER  ( WIRE-2) 

PARAMETER  (PLATE-3) 


COMMON/KDIMEN/KNODESJCEDGESJCFACES 

COMMON/KDIMWR/KWCRDS.KWSEGS 

COMMON/CDIMEN/JNODESrJEDGESJFACES 

COMMON/CDIMWRyjWCRDSJWSEGS 

COMMON/CONST/PLKNJIfJWU04P,X14PJErJWE04P^14PJU 

COMMON/CONSTl/KNlJWU14P,X14PWE^C14PIrJWE14P,X14PWU 

COMMON/NUMINT/XSLETA,WGHT 


EXTERNAL  MAGNEGTAREA, VDOT^vlAP  1 ,MAP2 
EXTERNAL  SGNPOTJSGN.CDOT 


C  source  triangles 
C 

DO  2005  N0-1JFACES 
CALL  VTXCRD1(N0R11N) 

AREA1N  -  GTAREACR1  INFLATE) 

CALL  LENGTH(R11N,L1N) 

CALL  FACEDG1(N0E1N(1)E1N(2)E1N(3)) 
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C 

C  observation  triangles 
C 

DO  2004  MO-1.KFACES 
CALL  VTXCRD2(M0,R11M) 

AREA1M  -  GTAREA(R1 1MJPLATE) 

CALL  CENTERCRUHRCIM^LATE) 

CALL  LENGTHCR11ML1M) 

CALL  FACEDG2(M0,ElM(l)fElM(2),ElM(3)) 

C 

C  compute  integrals 
C 

CALL  NINT7B(R1 1NRC1M,CVECK0,CXSIK0,CETAK0>AREA  1NJDR) 

C 

DO  2003  N1-1JPLATE 
N(l)  -  MAPl(N0^1  JPLATE) 

N(2)  -  MAPI  CNOfNl+PLATEJ’LATE) 

IF  (N(l)mO.ORJ^(2)mO)  THEN 
DO  2001  1-1,3 

Aid)  -  RllNd.1)  *  CVECKO  + 

+  (  R11N(U)  -  RllN(I,l)  )  *  CXSDCO  + 

+  (  R11N03)  -  R11N(L1)  )  *  CETAKO 

RIG)  -  R11NON1) 

RIMRCMCl)  -  RI(I)  -  RC1MQ) 

2001  CONTINUE 

CALL  CROSS2CRC1MJILRCMXRI) 

CALL  CR0SS3(RIMRCNLA1A3) 

DO  2025  1-13 

Al®  -  A3d)  +  RCMXRld)  *  CVECKO 

Aid)  -  ISGNCEINCNl))  *  L1N(N1)/(2*AREA1N)  *  Aid) 

2025  CONTINUE 

DO  2002  M1-1.PLATE 
M(l)  -  MAP2(M0M1J>LATE) 

M(2)  -  MAP2(M0,M1+PLATEJ>LATE) 

IF  (M(l).NE.O.ORJrf(2).NE.O)  THEN 
CALL  P1RH0(R11M,M1,RH01M) 

A  -  X14PI  *  CD0TCRH01MA.1) 

CX10  -  BGNCEIMCMD)  *  L1MCM1)  *  A 
C 

IF  (DRLTL1M(1).0RX)RLTL1M(2).0RX)RLTL1M(3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  n-1,7 
DO  2050  JJ-1,3 

R1M(JJ)  -  R11MOJ.1)  +  (R1 1M(JJ3)-R1  lM(JJ,l)>XSl(n)  + 

+  (RllM(JJ,3)-RllM(JJ,l)>ETA(n) 

RHOlMCJJ)  -  R1M(JJ>R11M(JJM1) 

2050  CONTINUE 

CALL  NINT7B(R11NR1M,CVECKOICXSIKO,CETAKOAREA1N, TRASH) 
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HO  204Q  T— i  i 

A1(I)  -  RllNd.1)  *  CVECKO  + 

+  (  R11N02)  -  R11N(U)  )  *  CXSDCO  + 

+  (  R11N(I,3)  -  RllNai)  )  *  CETAKO 

RI(I)  -  RllN(l^l) 

RIMRCMQ)  -  Rid)  -  RIMd) 

2049  CONTINUE 

CALL  CR0SS2(R1M,RI,RCMXRI) 

CALL  CROSS  3CRIMRCNLA1A.3) 

DO  2048  1-13 

Aid)  -  A3d)  +  RCMXRICI)  *  CVECKO 

A1(I)  -  ISGN(E1N(N1))  *  L1N(N1)/(4*AREA1N)  *  Aid) 

2048  CONTINUE 

A  -  X14PI  *  CD0TCRH01M.A1) 

CFX  -  ISGN(E1M(M1))  *  L1M(M1)/AREA1M  *  A 
CF  -  CF  +  CFX*WGHT(n) 

2051  CONTINUE 

CX10  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-13 
DO  3001  K-13 

IF  CM(K)J^E.OANDJ^(J)mO)  THEN 

CZ(N(J),M(K))  -  CZ(N(J),M(K))  +  SGNPOT(CX10rJjO/2 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

C  ♦«****«**♦»*** 

OPEN(FBLE-’CZ7’ISTATUS-’NEW,DISPOSE-DELETE’, 

+  UNTT-27FORM-UNFORMATTED’) 

DO  147  J-1JCUNKNS 
147  WRITEC27XCZCU)J-UUNKNS) 

c  ************** 

c 

TYPE  V  CZ10  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPLllCCZJCUNKNS) 

C 

INTEGER  KUNKNS 
COMPLEX  JLA33GNPOT 
COMPLEX  CVEC,CXSI,CETA,CPHLA.l(3),CDOT 
COMPLEX  CZGCUNKNSJCUNKNS),CX1 1.CF.CFX 


noo  non  noo 
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COMPLEX  KNlrrWU14P^X14PWETJWE14P(X14PWXJ 
REAL  PIJCNJWU04P,X14PJEJWE04P,X14PJU,X14PI 
REAL  MAGNI,GTAREAAREA1N,VD0T>AREA1M,TRASH 
REAL  DR,POT,RLNl(3),ROl(3),LlM(3XLlN(3) 

REAL  R1  lM(3,3)jilM(3)JlClM(3)jm01M(3)JU  1N(3,3) 

REAL  XSI(7),ETA(7),WGHT(7) 

INTEGER  KNODES4CEDGES JCFACES.K W CRDSJC W SEGS 
INTEGER  UJLM(2)>M0>I1^(2)^0^1^IAP2E1M(3)E1NC3)JSGN 
C 

INTEGER  WmEJ>LATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/KDIMEN/KNODESJCEDGESJCFACES 
COMMON/KDIMWPyK  W  CRDSjCW  SEGS 
COMMON/CONST/PI,KNJLJWU04P,X14PJEJWE04P,X14PJU 
COMMON/ CONST  1  /KN 1 JWU 1 4P.X  1 4P  WE,X  1 4PIJWE 1 4P,X  1 4P  WU 
COMMON/NUMLNT/XSIETA.WGHT 
C 

EXTERNAL  MAGNLGTAREA.VDOTA1AP2 
EXTERNAL  SGNPOTJSGN.CDOT 


source  triangles 


DO  2005  NO^IJCFACES 
CALL  VTXCRD2(N0JU1N) 

AREA1N  -  GTAREA(R1  INFLATE) 

CALL  LENGTH(R11N,L1N) 

CALL  FACEDG2(N0JE1N(1)JE1N(2)JE1N(3)) 


observation  triangles 


DO  2004  M0-1.KFACES 
CALL  VTXCRD2(M0JU1M) 

AREA1M  -  GTAREA(R1 1MJPLATE) 

CALL  CENTER(R1 1M.RC1M.PLATE) 

CALL  LENGTH(R11MX1M) 

CALL  FACEDG2(M0^1M(1)JB1M(2)E1M(3)) 


compute  integrals 


CALL  NINT7(R11N^C1M,CVEC,CXSI,CETAJ}0T)CPHI, 

+  RLN1,R01,AREA1N,DR) 

DO  2003  Nl-IJ’LATE 
N(l)  -  MAP2(N0,N  1  .PLATE) 

N(2)  -  MAP2(N0,N 1+PLATE.PLATE) 

IF  (N(  1  ).NE.O.OR.N(2).NE.O)  THEN 
P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  JI  *  X14PJE  *  CPHI 
DO  2001  1-1,3 

A1(I)  -  (  R11NG.1)  -  R11N(LN1)  )  *  CVEC  + 

+  (  R11N(U)  -  RllNd.1)  )  *  CXSI  + 


non 
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+  (  R11N(U)  -  R11N(U)  )  *  CETA  + 

+  (  R01Q)  -  R11NON1)  )  *  POT  +  RLNI(I) 

A1(I)  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  AlCD 
2001  CONTINUE 
C 

DO  2002  Ml-l^LATE 
M(l)  -  MAP2(M0,M1,PLATE) 

M(2)  -  MAP2(M0,M  1+PLATEJPLATE) 

IF  (M(l)mO.ORAl(2)mO)  THEN 
CALL  PIRHOCRIIMMIJIHOIM) 

A  -  JI  *  JWU04P  *  CDOTCRHOIMA-1) 

CX11  -  EGN(E1MCM1))*L1M(M1XA+P) 

c 

IF  (DRUT11M(1).0RX)RLTU1M(2).0RX)RLTL1M(3))  THEN 

do  the  7-pt  integration  over  the  observation  triangle 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-1,3 

R1MCJJ)  -  R11M(JJ,1)  +  (RlIM(JJ,2)-RllM(JJ,l)>XSlCn)  + 

+  (R1 1M(JJ,3)-R1 1MCJJ,1)>ETA03) 

RH01MCJJ)  -  R1M(JJ>R11M(JJ,M1) 

2050  CONTINUE 

CALL  NINT7CR11N>R1M,CVEC,CXSI,CETA4>0T,CPHI, 

+  RLNIJIOIARHAIN.TRASH) 

P  -  ISGN(E1N(N1))  *  L1N(N  l)/ AREA1N  *  JI  *  X14PJE  *  CPHI 
DO  2049  I-U 

A1(I)  -  (  RllNd.1)  -  R11N(LN1)  )  *  CVEC  + 

+  (  R11NCU)  -  R11N(I,1)  )  *  CXSI  + 

+  (  R11N0.3)  -  R11N(U)  )  *  CETA  + 

+  (  ROld)  -  RllNChNl)  )  *  POT  +  RLNld) 

Aid)  -  ISGNCEIN(NI))  *  L1N(N1)/(4*AREA1N)  *  Aid) 

2049  CONTINUE 

A  -  JI  *  JWU04P  *  CDOTCRHOlhLAl) 

CFX  -  ISGN(E1M(M1)>L1M(M1)/AREA1M*(A+P) 

CF  -  CF  +  CFX*WGHTdI) 

2051  CONTINUE 

CX11  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-1,2 
DO  3001  K-1,2 

IF  (M(K)mOANDN(j)NE.O)  THEN 
lXM(K)mN(J))  THEN 

CZ(M(K)N(J))  -  CZ(M(K)N(J))  +  SGNPOTCCX1UJ0/2 
CZ(N(J),M(K))  -  CZCN(J),M(K))  +  SGNPOTCCX11JJO/2 
ELSE 

CZCMOO^(J))  -  CZ(M(K)N(J))  +  SGNPOTCCX11J.K) 

ENDIF 


AD-A17B  973 
UNCLASSIFIED 
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ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

C  mrnwm* 

OPENCFILE-’CZll’.STATUS-'NEW’DISPOSE-DELETE’, 

+  UNIT-3 1  J?ORM-*UNFORMATTED0 

DO  147  J-IJKUNKNS 
147  WRrrE(3iXcz(y),i-U) 

C  “**“**"«»" 

c 

TYPE  V  CZ11  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL13(CZJUNKNSJ^UNKNS) 

C 

INTEGER  JUNKNSJKJNKNS 
COMPLEX  JIAP^GNPOT 

COMPLEX  CVEC1,CXSI1,CETA1,CPHI1A2(3),CD0T 
COMPLEX  CZ(JUNKNSJ^UNKNS),CX  1 3,CF,CFX 
COMPLEX  KN1JWU  14PtX14PWErTWE14P^X14PWU 
REAL  PLKN,JWU04P,X14PJErJWE04P,X14PJU>X14PI 
REAL  MAGNLGTAREAAREA1N,VD0TAREA1M,TRASH 
REAL  DRJ>0T,RLN1(3).R01(3),L1M(3)>L1N(3) 

REAL  R11M(33)*1M(3)£C1M(3),RH01M(3),R11N(3,3) 

REAL  XSI(7 )JET A(7  ),WGHT(7  ) 

INTEGER  NNODES^NEDGESJ^FACESJ'TW CRDS.NW  SEGS 
INTEGER  JNODESJEDGESJFACESJWCRDSJWSEGS 
INTEGER  LJ,fLM(2),M0,Ml,N(2),N0,N  1,MAP,MAP1 
INTEGER  E1M(3)JE1N(3)JSGN 
C 

INTEGER  WIREPLATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/DIMEN/NNODES^EDGES^NFACES 
COMMON/DIMWR/NWCRDSJiWSEGS 
COMMON/CDIMEN/JNODESJEDGESJFACES 
COMMON/CDIMWR/rWCRDSJWSEGS 
COMMON  / CONST/PLKN  JIJWU04P^C  1 4P  JEJWE04P.X  1 4PJU 
COMMON/CONSTl/KNl,JWU14P,X14PWE^14PLJWE14P,X14PWU 
COMMON/NUMINT/XSLETA,WGHT 
C 

EXTERNAL  MAGNLGTAREA,VD0T,MAP,MAP1 
EXTERNAL  SGNPOTJSGN.CDOT 
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C 

C  source  triangles 
C 

DO  2005  N0-1JFACES 
CALL  VTXCRDl(NO,RllN) 

AREA1N  -  GTAREA(R  1 1  N^LATE) 

CALL  LENGTH(R1 1N.L1N) 

CALL  FACEDG1(N0,E1N(1),E1N(2),E1N(3)) 

C 

C  observation  triangles 
C 

DO  2004  M0-1.NFACES 
CALL  VTXCRD(M0 Jll  1M) 

AREA1M  -  GTAREA(R1  1M.PLATE) 

CALL  CENTER(R11NLRC1\LPLATE) 

CALL  LENGTH(R11\LL1M) 

CALL  FACEDG(M0,E1M(1),E1M(2),E1M(3)) 

C 

C  compute  integrals 
C 

CALL  NINT7ACR1 1N^C1M,CVEC1,CXSH,CETA1JP0T,CPHI1, 

+  RLNl.ROl.AREAlNJDR) 

C 

DO  2003  N1-1JLATE 
NCl)  -  MAP1(N0,N  1JPLATE) 

N(2)  -  MAP1(N0,N  l+PLATEJ’LATE) 

IF  (N(l).NE-O.ORJJC2)JNE.O)  THEN 

P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  C-Jl)  *  X14PWE  *  CPHI1 
DO  2001  I-U 

A2(D  -  (  RllNai)  -  R11NCLN1)  )  *  CVEC1  + 

+  (  R11NCL2)  -  R11NCL1)  )  *  CXSI1  + 

+  (  R11N03)  -  R11N(I,1)  )  *  CETA1  + 

+  (  R0l(l)  -  RllNCLNl)  )  *  POT  +  RLNlCl) 

A2(D  -  ISGN(E1N(N1))  *  L1N(N1)/(2*AREA1N)  *  A2(l) 

2001  CONTINUE 
C 

DO  2002  M1-1.PLATE 
M(l)  -  MAPCMO^ilFLATE) 

M(2)  -  MAPCMOAil+PLATEJPLATE) 

IF  (M(l)mO.ORJvlC2)mO)  THEN 
CALL  PIRHOCRUNLMIJIHOIM) 

A  -  -JI  *  JWU14P  *  CDOT(RHOl\LA2) 

CX13  -  BGNCE1M(M1)>L1M(M1XA+P) 

C 

IF  CDRiTHM(l).ORDRXTLlM(2).ORJ)RJLTLlM(3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
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R1M(JJ)  -  R11M(JJ,1)  +  (R11M(JJ,2>R11M0J,1))*XSI(ID  + 

+  (RllM(JJ3>RHM(JJ,l))*ETA(n) 

RH01M(JJ)  -  R1M(JJ)-R11M(JJ,M1) 

2050  CONTINUE 

CALL  NINT7A(RllNJUM,CVECl,CXSIl,CETAlJOT,CPHIl, 

+  RLN1^01tAREAlN, TRASH) 

P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  (-JI)  *  X14PWE  *  CPHI1 
DO  2049  I-U 

A2CD  -  (  R11NG.1)  -  R11NON1)  )  *  CVEC1  + 

+  (  R11N02)  -  R11N0.1)  )  *  CXSI1  + 

+  (  R11NCL3)  -  R11N(L1)  )  *  CETA1  + 

+  C  R01(I)  -  R11NCLN1)  )  *  POT  +  RLNlCl) 

A2(I)  -  ISGN(E1N(N1))  *  L1N(N1)/(4*AREA1N)  *  A2(I) 

2049  CONTINUE 

A  -  -JI  *  JWU14P  *  CD0TCRH01MA2) 

CFX  -  isgn(eim(md)*lim(mi)/areaim*Ca+p) 

CF  -  CF  +  CFX*WGHT(n) 

2051  CONTINUE 

CX13  -  CF  *  AREA1M 
C 

ENDEF 

C 

DO  3001  J-U 
DO  3001  K-1,2 

IF  (M(K)J^E.OAND^(J)aNE.O)  THEN 
CZCnOXmGO)  -  CZ(N(J),MaO)  +  SGNPOTCCX13JJO/2 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

C  rtttm—WM 

OPEN(FILE-’CZ4,^TATUS-’NEW’J3ISPOSE-rDELETF, 

+  UNIT-24fORM-*UNFORMATTED*) 

DO  147  J-1.NUNKNS 
147  WRnH24XCZ(IJ)J-lJUNKNS) 

C  — . . 

c 

TYPE  V  CZ13  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL14(CZJUNKNSJ*UNKNS) 

C 


INTEGER  JUNKNSJWNKNS 
COMPLEX  JLAJP.SGNPOT 

COMPLEX  CVECK1,CXSIK1,CETAK1A2C3)A4(3),CD0T 


1  *  *  *  .  •  .  *  . 


nnn  non  non 
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COMPLEX  CZCJUNKNS^UNKNS),CX14,CF,CFX 
COMPLEX  KNlrIWU14PX14PWEJWE14P^.14PWU 
REAL  PLKNJWU04P,X14PJEJWE04P,X14PJU,X14PI 
REAL  MAGNLGTAREA^REAIN.VDOTARE/  -M.TRASH 
REAL  DRJOT,RLN1(3),R01(3),L1M(3),L1N(3) 

REAL  R11M(3,3),R1M(3),RC1M(3),RH01M(3),R11N(3,3) 

REAL  RI(3)JEUMRCM(3)JICMXRI(3) 

REAL  XSI(7)ETA(7),WGHT(7) 

INTEGER  NNODESJ^EDGES,NF ACES^TW CRDSJTW SEGS 
INTEGER  JNODESJEDGESJFACESJW CRDSJWSEGS 
INTEGER  UK^M(2),M0,M1.N(2),N0,N1,MAP,MAP1 
INTEGER  E1M(3)E1N(3)JSGN 
C 

INTEGER  WIREJ’LATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/DIMEN/NNODESJ^EDGES^FACES 

COMMON/DIMWR/NWCRDS^WSEGS 

COMMON/CDIMEN/JNODESJEDGESJFACES 

COMMON/CDIMWR/JWCRDSJWSEGS 

COMMON/CONST/PUCNJIJWU04PX14PJEJWE04PX14PJU 

COMMON/CONSTl/KNltJWU14P,X14PWErX14PLJWE14P,X14PWU 

COMMON/NUMINT/XSLETA.WGHT 

C 

EXTERNAL  MAGNI,GTAREA,VDOT,MAP,MAPl 
EXTERNAL  SGNPOTJSGN.CDOT 


source  triangles 

DO  2005  NO-UFACES 
CALL  VTXCRDl(NOjmN) 

AREA1N  -  GTAREA(R1  INFLATE) 

CALL  LENGTH(R11NX1N) 

CALL  FACEDG1(N0E1N(1)E1N(2)E1N(3)) 


observation  triangles 

DO  2004  M0-1.NFACES 
CALL  VTXCRlXMO.R  1 1 M) 

AREA1M  -  GT AREA(R  1 1  MJ'LATE) 

CALL  CENTER(R1  lM^ClMJLATE) 

CALL  LENGTH(R11MX1M) 

CALL  FACEDG(M0E1M(1)E1M(2)E1M(3)) 


compute  integrals 


CALL  N1NT7C(R11NJIC1M,CVECK1,CXSIK1ICETAK1AREA1NE)R) 

DO  2003  N 1-1  .PLATE 
N(l)  -  MAPl(NO,Nl,PLATE) 

N(2)  -  MAP1(N0,N1+PLATEJ>LATE) 
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IF  (N(l).NE.O.ORJJ(2).NE.O)  THEN 
DO  2001  1-13 

A2C0  -  R11N0.1)  *  CVECK1  + 

+  (  R11N02)  -  R11N0.1)  )  *  CXSIK1  + 

+  (  R11N03)  -  R11N(U)  )  *  CETAK1 

RKI)  -  RllNtXNl) 

RIMRCMO)  -  RI00  -  RClMCl) 

2001  CONTINUE 

CALL  CROSS2CRC1MMRCMXRI) 

CALL  CROSS3(RIMRC\LA2>A4) 

DO  2025  1-13 

A2(D  -  A4(I)  +  RCMXRIOO  *  CVECK1 

A2(D  -  ISGN(E1N(N1))  *  L1N(N  1)/(2*AREA1N)  *  A2(I) 

2025  CONTINUE 

DO  2002  M1-1.PLATE 
M(l)  -  MAPCMO^Il^LATE) 

M(2)  -  MAPCMOMl+PLATE^LATE) 

IF  (M(l)mO.ORAl(2)JIE.O)  THEN 
CALL  P1RH0(R11NLM1JIH01M) 

A  -  -X14PI  *  CD0T(RH01MtA2) 

CX14  -  ISGNCE1MCM1))  *  L1M(M1)  *  A 
C 

IF  CDRiTHM(l).ORJDRX,TllM(2).ORJ)RLTllM(3))  THEN 
C 

C  do  the  7-pt  integration  over  the  observation  triangle 
C 

CF  -  0 
CFX  -  0 
DO  2051  H-1,7 
DO  2050  JJ-13 

R1M(JJ)  -  R11MCJJ.1)  +  (RllM(JJ3)-RllM(JJ,l)>XSlCn)  + 

+  (R1 1M(JJ3)-R1  lM(JJ,l))*ETA(n) 

RH01M(JJ)  -  R1M(JJ)-R11M(JJ,M1) 

2050  CONTINUE 

CALL  NINT7C(R11NJR1M,CVECK1,CXSIK1,CETAK1ARHA1N, TRASH) 

DO  2049  1-13 

A2(I)  -  R11N0.1)  *  CVECK1  + 

+  (  R11N03)  -  R11N0.1)  )  *  CXSIK1  + 

+  (  R11N03)  -  R11N0.1)  )  *  CETAK1 

RIO)  -  R11NON1) 

RIMRCMO)  -  RIO)  -  R1M0) 

2049  CONTINUE 

CALL  CROSS20R1MJOJ1CMXRI) 

CALL  CROSS 3CRIMRCMA2A4) 

DO  2048  1-13 

A2(I)  -  A4(I)  +  RCMXRI(I)  *  CVECK1 

A20)  -  ISGN(E1N(N1))  *  L1N(N1)/(4*AREA1N)  *  A2(I) 

2048  CONTINUE 

A  -  -X14PI  *  CDOT0lHOlM*A2) 

CFX  -  ISGN(E1M(M1))  *  L1MCMD/AREA1M  *  A 
CF  -  CF  +  CFX*WGHTOl) 

2051  CONTINUE 
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CX14  -  CP  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-U 
DO  3001  K-U 

IF  (M(K).NE.OAND.N(J).NE.O)  THEN 

CZ(N(JXM(K))  -  CZ(N(J),M(K))  +  SGNPOTCCX14JJO/2 
ENDEF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

. . . 

0PEN(FILE-X38,>STATUS-’NEW,X>ISP0SE-T)ELETE’, 

+  UN1T-28PORM-TJNFORMATTED’) 

DO  147  J-1.NUNKNS 
147  WRTTE(28XCZ(U)J-UUNKNS) 

C  *♦«♦♦♦*******« 

c 

TYPE  •/  CZ14  COMPLETED* 

C 

RETURN 

END 

C 

SUBROUTINE  ZPLPL16(CZJ*UNKNS) 

C 

INTEGER  NUNKNS 
COMPLEX  JLAJ^GNPOT 

COMPLEX  CVECl,CXSIl,CETAl,CPmiA2(3),CDOT 
COMPLEX  CZ(NUNKNSJ^UNKNS),CX16,CF,CFX 
COMPLEX  KN1JWU14P,X14PWE?JWE14P,X14PWU 
REAL  PIJCN,JWU04P,X14PJEJWE04PIX14PJU,X14PI 
REAL  MAGNLGTAREAAREA1N,VD0TABEA1M,TRASH 
REAL  DRPOT41LN1(3)3101(3)L1M(3)L1N(3) 

REAL  RllM(3^XRlM(3XRClM(3)jlH01M(3)4mN(3^) 

REAL  XSI(7)£TA(7),WGHT(7) 

INTEGER  NNODES^EDGES^TF ACES^TW CRDS^NW SEGS 
INTEGER  ItJJCM(2)^10^1>N(2)^0^1^IAPE1M(3)E1N(3)JSGN 
C 

INTEGER  WIREPLATE 
PARAMETER  (WIRE-2) 

PARAMETER  (PLATE-3) 

C 

COMMON/DIMEN/NNODESJ^EDGESJ'fFACES 
COMMON/DIMWR/NWCRDSJfWSEGS 
COMMON/CONST/PUCNJLJWU04P^  1 4PJEJWE04P.X  1 4PJU 
C0MM0N/C0NST1/KN1,JWU14P,X14PWE>X14PUWE14P,X14PWU 


nnn  o  o  nnn  noo  nnn 
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COMMON/NUMINT/XSI£TA,WGHT 

C 

EXTERNAL  MAGNI.GT AREA, VDOT MAP 
EXTERNAL  SGNPOTJSGN.CDOT 

source  triangles 

DO  2005  N0-1.NFACES 
CALL  VTXCRDCNOJlllN) 

AREA1N  -  GTAREACR1  INFLATE) 

CALL  LENGTHCR1  1N.L1N) 

CALL  FACEDG(N0(ElN(l)fElN(2),ElN(3)) 

observation  triangles 

DO  2004  M0-1.NFACES 
CALL  VTXCRD(M0JR1 1M) 

AREA1M  -  GTAREA(R1 1MJLATE) 

CALL  CENTER(R1  lMJICIMJ’LATE) 

CALL  LENGTH(RllMXlM) 

CALL  FACEDG(M0£1M(1)£1M(2)£1M(3)) 

compute  integrals 

CALL  NINT7A(R1 1NJIC1M,CVEC1,CXSI1,CETA1  JOT.CPHIl, 

+  RLNl.ROl.AREAlN.DR) 

DO  2003  N 1-1  .PLATE 
N(l)  -  map(nonijplate) 

N(2)  -  MAP(N0,N  1+PLATEJPLATE) 

IF  (N(1)-NE.O.ORN(2)NE.O)  THEN 
P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  JI  *  X14PWE  *  CPHI1 
DO  2001  1-1,3 

A2(l)  -  (  R11N0.1)  -  R11N(IN1)  )  *  CVEC1  + 

+  (  R11N(U)  -  R11N(U)  )  *  CXSI1  + 

+  (  R11N(U)  -  RllNai)  )  *  CETA1  + 

+  (  R01Q)  -  R11NON1)  )  *  POT  +  RLNlCD 

A2(D  -  ISGNCEINCNI))  *  L1N(N1)/(2*AREA1N)  *  A2(I) 
m  CONTINUE 

DO  2002  M1-1.PLATE 

M(l)  -  mapCmo,mi  .plate) 

M(2)  -  MAP(M0,M1+PLATEJ?LATE) 

IF  (M(l)NE.O.ORJ^(2)mO)  THEN 
CALL  P1RH0CR11MJVHJIH01M) 

A  -  JI  *  JWU14P  *  CD0TCRH01MA2) 

CX16  -  ISGNCE1M(M1)>L1M(M1XA+P) 

IF  (DRXTXlM(l).ORX>RiTilM(2).ORJ3RJLTJ.lM(3))  THEN 

do  the  7-pt  integration  over  the  observation  triangle 
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CF  -  0 
CFX  -  0 
DO  2051  n-1,7 
DO  2050  JJ-13 

R1M(JJ)  -  RllM(JJ,l)  +  (RllM(JJ^)-RllMCJJ,l)>XSlCn)  + 

+  (RllM(JJ,3>RllM(JJ,l))*ETACn) 

RH01MOJ)  -  R1M(JJ)-R11M(JJ,M1) 

2050  CONTINUE 

CALL  NINT7A(R11N4UM,CVEC1,CXSI1,CETA1>P0T,CPHI1, 

+  RLNljROl^AREAlN, TRASH) 

P  -  ISGN(E1N(N1))  *  L1N(N1)/AREA1N  *  JI  *  X14PWE  *  CPHI1 
DO  2049  1-13 

A2(I)  -  (  R11NCI.1)  -  R11NON1)  )  *  CVEC1  + 

+  (  R11NCL2)  -  R11NCU)  )  *  CXSI1  + 

+  C  R11NCI3)  -  R11N0.1)  )  *  CETA1  + 

+  (  R01(I)  -  R11NON1)  )  *  POT  +  RLNlGO 

A2(I)  -  ISGNCE1NCN1))  *  L1N(N1)/(4*AREA1N)  *  A2(l) 

2049  CONTINUE 

A  -  JI  *  JWU14P  *  CDOTCRH01MA2) 

CFX  -  ISGN(E1M(M1))*L1M(M1)/AREA1M*(A+P) 

CF  -  CF  +  CFX*WGHT(n) 

2051  CONTINUE 

CX16  -  CF  *  AREA1M 
C 

ENDIF 

C 

DO  3001  J-1,2 
DO  3001  K— 13 

IF  (M(K)J<E.OAND^CJ)J^E.O)  THEN 
IP(M(K).NEJCr))  THEN 

CZ(M(K),N(J))  -  CZCMOONO))  +  SGNPOTCCX16JJO/2 
CZ(N(J),M(K))  -  CZ(N(J),M(K))  +  SGNPOT(CX16rJ,K)/2 
ELSE 

CZ(M(K)JI(J))  -  CZ(M(K),N(J))  +  SGNPOTCCX16JJC) 
ENDIF 
ENDIF 

3001  CONTINUE 

ENDIF 

2002  CONTINUE 
ENDIF 

2003  CONTINUE 

2004  CONTINUE 

2005  CONTINUE 
C 

C  ►' . ******** 

OPEN(FILE-TZ16\STATUS-’NEW’,DISPOSE-T>ELETE\ 

+  UNIT-36pORM-’UNFORMATTED’) 

DO  147  J-1.NUNKNS 
147  WRJTE(36XCZ(LJ)J-U) 

C  **»«*«**»***»» 

c 


TYPE  V  CZ16  COMPLETED* 


ooooo  ooo 
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RETURN 

END 


COMPLEX  FUNCTION  SGNPOT(P,Ml>Nl) 
USED  FOR  MULTIPLE  EDGE  CONNECTIONS 
INTEGER  M1.N1 
COMPLEX  P 
SGNPOT  -  P 

IF  CM1NE.1)  SGNPOT  -  -SGNPOT 
IF  (N1M.1)  SGNPOT  -  -SGNPOT 
RETURN 
END 


vector  functions 


for  use  with  z-matrii 

SUBROUTINE  COPY(Vl,V2) 

REAL  V1(3),V2(3) 

INTEGER  I 
DO  2001  1-13 
V2(I)-V1(I) 

2001  CONTINUE 
RETURN 
END 
C 

REAL  FUNCTION  VDOTCV1.V2) 
INTEGER  I 
REAL  V1(3),V2(3) 

VDOT  -  0 
DO  2001  1-13 

VDOT  -  VDOT  +  V1(I)*V2(D 
2001  CONTINUE 
RETURN 
END 
C 

COMPLEX  FUNCTION  CDOT(VlfV2) 
INTEGER  I 
REAL  Vl(3) 

COMPLEX  V2(3) 

CDOT  -  0 
DO  2001  1-13 

CDOT  -  CDOT  +  Vl(l)*V2(l) 

2001  CONTINUE 
RETURN 
END 
C 

REAL  FUNCTION  MAGNI(V) 

REAL  VDOT 
REAL  V(3) 
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EXTERNAL  VDOT 
MAGNI-SQRT(VDOT(V,V)) 

RETURN 

END 

SUBROUTINE  UNTTCV1,V2) 

INTEGER  I 
REAL  V1(3),V2(3) 

REAL  MAGNLR 
EXTERNAL  MAGNI 
R-MAGNI(VI) 

DO  2001  1-13 
V2(l)-Via)/R 
CONTINUE 
RETURN 
END 

SUBROUTINE  CENTER(VTX,V,CASE) 

REAL  VTX(33),V(3) 

INTEGER  UCASE 
DO  2002  1-13 
V(l)-0 

DO  2001  J-l.CASE 

va)-va^vTx(u) 

CONTINUE 

V(I)-V(I)/CASE 

CONTINUE 

RETURN 

END 

SUBROUTINE  MIDPTSCVTX,V) 

REAL  VTX(33),V(33) 

INTEGER  UK 
EXTERNAL  MAGNI 
DO  2002  1-13 
J-M0D(I3>+1 
K-M0D(J3>+-1 
DO  2001  L-13 

VCU)  -  (  VTXCU)  +  VTX(U0  )  /  2 
CONTINUE 
CONTINUE 
RETURN 
END 

SUBROUTINE  LENGTH(VTX3) 

REAL  VTX(33),V(3) 

REAL  S(3)MAGNI 
INTEGER  U4C 
EXTERNAL  MAGNI 
DO  2002  1-13 
J-M0D(I3M 
K-M0DCJ3M 
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DO  2001  L-1,3 
Va)-VTX(LJ)-VTX(UK) 

2001  CONTINUE 

sCi)-magni(  v ) 

2002  CONTINUE 
RETURN 
END 

C 

REAL  FUNCTION  GTAREA(VTX,CASE) 

REAL  MAGNI 
REAL  V(3),VTX(3,3) 

INTEGER  I, CASE 
EXTERNAL  MAGNI 
C 

C  ’’area”  of  wire  segment  -  length 

C  ’’area”  of  triangle  is  1/2  cross  product  of  two  sides 

C 

IF  (CASELQ.2)  THEN 
DO  2001  1-13 
V(I)  -  VTX(U)  -  VTXGU) 

2001  CONTINUE 

GTAREA-MAGNICV) 

ELSE  IF  (CASE-EQ.3)  THEN 
CALL  CROSSl(VTX,V) 

GTAREA-MAGNl(V)/2 

ENDIF 

RETURN 

END 

C 

SUBROUTINE  CROSSl(VTX,V) 

REAL  VTX(33),V(3) 

INTEGER  UK 
DO  2001  1-13 

j-modCuM 

K-M0D(J3)+1 

V(I)  -  (VTX(J3)-VTX(J,1))  *  (VTX(K,3)-VTX(K,1))  - 
+  (VTX(J3)-VTX(J,1))  *  ( VTX(K3)- VTX(K,  1 )) 

2001  CONTINUE 
RETURN 
END 
C 

SUBROUTINE  CR0SS2(V1,V2,V3) 

REAL  V  1(3), V2(3),V 3(3) 

INTEGER  UJC 
DO  2001  1-13 

j-modCuM 

K-M0D(J3>fl 

V3(I)  -  V1(J)*V2(K)  -  V1(K>V2(J) 

2001  CONTINUE 
RETURN 
END 


Appendix  D.  EFIE2PC  Computer  Program 

SUBROUTINE  CR0SS3(V1,V2,V3) 

REAL  Vl(3) 

COMPLEX  V2(3),V3(3) 

INTEGER  IJJC 
DO  2001  1-1,3 
J-M0D(I,3)+1 
K-MOD(J,3M 

V3(I)  -  V1(J>V2(K)  -  V1(K>V2(J) 

CONTINUE 

RETURN 

END 

INTEGER  FUNCTION  MAPCUCASE) 

INTEGER  IJ.CASE 

INTEGER  NN0DES^EDGESA1APUNK(  1  ),SEG(4,l),NBOUND(6, 1 ) 
COMMON/DIMEN/NNODESJ'JEDGES 
COMMON/MAPUS/MAPUNK 
COMMON/SWIRE/SEG 
COMMON/TLAT3/NBOUND 
IF  (CASEEQ.2)  THEN 
MAP  -  ABS(SEG(J,I)) 

IF  (MAPM.0)  MAP-MAPUNK(NEDGESr>/IAP) 

ELSE  IF  (CASEEQ.3)  THEN 
MAP- ABS(NBOUND(  J  J)) 

IF  (MAPM.0)  MAP-MAPUNK(MAP) 

ENDIF 

RETURN 

END 

INTEGER  FUNCTION  MAPl(U.CASE) 

INTEGER  IJ.CASE 

INTEGER  JNODESJEDGESMAPUNKJC 1  ),SEGJ(4.1 )  JBOUND(6,l) 
COMMON/CDIMEN/JNODESJEDGES 
COMMON/CMAPUS/MAPUNKJ 
COMMON/CS  WIRE/  SEG  J 
COMMON  /CPLAT  3/ JBOU  ND 
IF  (CASEJEQ.2)  THEN 
MAPI  -  ABSCSEGJOJ)) 

IF  (MAPimo)  MAP  1-MAPUNKJ( JEDGES+MAP 1 ) 

ELSE  IF  (CASEEQ.3)  THEN 
MAPl-ABSC  JBOUNlX  J  J)) 

IF  (MAPI mO)  MAPl-MAPUNKJ(MAPl) 

ENDIF 

RETURN 

END 

INTEGER  FUNCTION  MAP2(U,CASE) 

INTEGER  IJ.CASE 

INTEGER  KNODESJCEDGESMAPUNKK(  1  ),SEGK(4,1 ) JCBOUND(6, 1 ) 

COMMON/KDIMEN/KNODESJCEDGES 

COMMON/KMAPU  S/MAPUNKK 

COMMON/KSWIRE/SEGK 


non  o  noon 


tt> 
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COMMON/KPLAT3/KBOUND 
IF  (CASKEQ.2)  THEN 
MAP2  -  ABSCSEGKOjO) 

IF  (MAP2.NE.0)  MAP2-MAPUNKK(KEDGES+MAP2) 

ELSE  IF  (CASEEQJ)  THEN 
MAP2-ABS(KB0UND(JJD) 

IF  (MAP2.NE.0)  MAP2-MAPUNKKCMAP2) 

ENDIF 

RETURN 

END 

C 

SUBROUTINE  GETRHO(VTX,V) 

INTEGER  I 
REAL  VTX(3,3),V(3) 

DO  2001  1-13 

VCD  -  (  VTXCL2)  -  VTX0.1)  )  /  2 
2001  CONTINUE 
RETURN 
END 
C 

SUBROUTINE  P1RHOCVTXJ.V) 

REAL  VTX(3,3),V(3) 

INTEGER  UJLL 
J-MOD(L3>+-l 
K-M0DCJ3>+1 
DO  2001  L-U 

va)  -  (  VTXCJUJ)  +  VTXCUO  )  /  2 
V(L)  -  (  Va)  -  VTXCU)  )  /  3 
2001  CONTINUE 
RETURN 
END 

this  routine  returns  the  edges  of  face  F  on  the  perfect  conductor 

SUBROUTINE  FACEDG(F£1£2£3) 

INTEGER  E1.E2JE3.F 
INTEGER  NBOUNDC6.1) 

COMMON/PLAT3/NBOUND 

El-NBOUNDClJF) 

E2-NBOUNDC2JF) 

E3-NBOUNDC3J7) 

RETURN 
END 

this  routine  returns  the  edges  of  face  F  on  the  coating 

SUBROUTINE  FACEDG1(F,E1,E2,E3) 

INTEGER  E1£2JE3F 
INTEGER  JBOUNDC6.1) 


Ww SW!W«¥ 
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COMMON/CPLAT3/JBOUND 

C 

El-JBOUNDClf) 

E2-JBOUNIX2J') 

E3-JBOUND(3,F) 

RETURN 

END 

C 

C  this  routine  returns  the  edges  of  face  F  on  the  coating 
C 

SUBROUTINE  FACEDG2(F^1JE2E3) 

C 

INTEGER  E1E2JB3E 
INTEGER  KBOUND(6,l) 

COMMON/KPLAT3/KBOUND 

C 

ei-kboundCijf) 

E2-KBOUND(2,F) 

E3-KBOUNIX3E) 

RETURN 

END 

C 

C  this  routine  returns  the  vertices  of  face  F  on  the  perfect  conductor 
C  v(i,j)  -  vertex  opposite  jth  edge;  i-l-x,  i-2-y,  i-3-z 
C 

SUBROUTINE  VTXCRD(FfV) 

C 

INTEGER  UE,El,E2,E3,P(3),NCONN(2,l) 

REAL  V(33)X>ATNOD(4.l) 

OOMMON/PLAT1/DATNOD 

COMMON/PLAT2/NCONN 

C 

CALL  FACEDG(FJE1L2JE3) 

C 

IF  (E1.GT.0)  THEN 
P(2)-NCONN(l>El) 

K3)-NC0NN(2JE1) 

ELSE 

P(2)-NC0NN(2,-E1) 

P(3)-NC0NN(l,-El) 

ENDIF 

C 

IF  (E2.GT.0)  THEN 
P(l)-NCONN(2E2) 

FT-SFr 

P(l>-NCONN(l,-E2) 

ENDIF 

C 

DO  2002  I-U 
DO  2001  J-1,3 

vCjj^-datnodCjjKi)) 

2001  continue 
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2002  CONTINUE 
C 

RETURN 

END 

C 

C  this  routine  returns  the  vertices  of  face  F  on  the  coating 
C  v(i,j)  -  vertex  opposite  jth  edge;  i-l-x,  i-2-y,  i-3-z 
C 

SUBROUTINE  VTXCRDl(F.V) 

C 

INTEGER  UF,El,E2,E3,P(3)fJCONN(2,l) 

REAL  V(33),CDATNOD(4,l) 

COMMON/CPLAT1/CDATNOD 

COMMON/CPLAT2/JCONN 

C 

CALL  FACEDGl(F,ElfE2£3) 

C 

IF  (E1.GT.0)  THEN 
P(2)-JC0NN(1JE1) 

P(3)-JOONN(2JEl) 

ELSE 

P(2)-JC0NN(2,-E1) 

P(3)-JCONNCl.-El) 

ENDIF 

C 

IF  (E2.GT.0)  THEN 
P(l)-JCONNC2£2) 

FISF 

P(l)-JCONN(l,-E2) 

ENDIF 

C 

DO  2002  1-13 
DO  2001  J-1,3 
V(JJ)-CDATNOD(jpa)) 

2001  CONTINUE 

2002  CONTINUE 
C 

RETURN 

END 

C 

C  this  routine  returns  the  vertices  of  face  F  on  the  coating 
C  v(i,j)  -  vertex  opposite  jth  edge;  i-l-x,  i-2-y,  i-3-z 
C 

SUBROUTINE  VTXCRD2(F,V) 

C 

INTEGER  UF,E1,E2,E3,P(3),KC0NN(2,1) 

REAL  V(33)JCDATNOD(4,l) 

COMMON/KPLAT1/KDATNOD 

COMMON/KPLAT2/KCONN 

C 

CALL  FACEDG2(FE1E2£3) 

C 
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IF  (E1.GT.0)  THEN 
P(2)-KCONN(l,El) 

P(3>-KCONN(2,El) 

FT  -<sF 

K2)-KC0NN(2,-E1) 

P(3)-KCONN(l,-El) 

ENDIF 

C 

IF  (E2.GT.0)  THEN 
Kl)-KCONNC232) 

FT.SF. 

Kl)-KCONN(l,-E2) 

ENDIF 

C 

DO  2002  1-13 
DO  2001  J-13 

v(jj)-kdatnodCjjp(D) 

2001  CONTINUE 

2002  CONTINUE 
C 

RETURN 

END 

C 

C  this  routine  returns  the  endpoints  of  segment  I  on  perfect  conductor 
C  vtxG,l)  is  the  lower  numbered  endpoint 
C 

SUBROUTINE  ENDPTSO,VTX) 

REAL  VTX(33),WR(4.1) 

INTEGER  UJCSEG(4,1) 

COMMON/RWIRE/WR 
COMMON/SWIRE/SEG 
DO  2002  J-U 
DO  2001  K-1,3 
VTX(KJ)-WR(XSEG(JJ)) 

2001  CONTINUE 

2002  CONTINUE 
RETURN 
END 

C 

C  this  routine  returns  the  endpoints  of  segment  I  on  coating 
C  vtxCul)  is  the  lower  numbered  endpoint 
C 

SUBROUTINE  ENDPTS  l(I,VTX) 

REAL  VTX(33),CWR(4,1) 

INTEGER  UJK3EGJ(4,1) 

COMMON/CRWIRE/CWR 
COMMON/CSWIRE/SEGJ 
DO  2002  J-1,2 
DO  2001  K-13 
VTX(KJ)-CWR(XSEGJaj)) 

2001  CONTINUE 

2002  CONTINUE 


i 

l 
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RETURN 

END 

C 

C  this  routine  returns  the  endpoints  of  segment  I  on  coating 
C  vtx(i,l)  is  the  lower  numbered  endpoint 
C 

SUBROUTINE  ENDPTS2(I,VTX) 

REAL  VTX(3,3),KWR(4,l) 

INTEGER  UXfSEGK(4,l) 

COMMON/KRWIRE/KWR 
COMMON/KSWIRE/SEGK 
DO  2002  J-U 
DO  2001  K-1,3 
VTX(Kj)-KWR(KfSEGK(JJ)) 

2001  CONTINUE 

2002  CONTINUE 
RETURN 
END 

C 

REAL  FUNCTION  GETRAD(l,CASE) 

REAL  WR(4,1) 

INTEGER  I,CASE£EG(4,l) 

COMMON/RWIRE/WR 
COMMON/SWIRE/SEG 
IF  (CASEEQ^)  THEN 

GETRAD-C  WR(4,SEG(ljO)  +  WR(4^EG(2jD)  )  /  2 
ELSE  IF  (CASELQJ)  THEN 
GETRAD-0 
ENDIF 
RETURN 
END 
C 

REAL  FUNCTION  GETRADl(l,CASE) 

REAL  CWR(4,l) 

INTEGER  CCASE^EG J(4, 1 ) 

COMMON/CRWIRE/CWR 
COMMON/CSWIRE/SEGJ 
IF  (CASEEQ-2)  THEN 

GETRADl-(  CWR(4^EGJ(1JD)  +  CWR(4^EGJ(2J))  )  /  2 
ELSE  IF  (CASEJEQ-3)  THEN 
GETRAD1-0 
ENDIF 
RETURN 
END 
C 

REAL  FUNCTION  GETRAD2(I,CASE) 

REAL  KWR(4,1) 

INTEGER  I,CASE£EGK(4,l) 

COMMON/KRWIRE/KWR 
COMMON/KSWIRE/SEGK 
IF  (CASEEQ.2)  THEN 

GETRAD2-C  KWR(4^EGK(U))  +  KWR(4,SEGK(24))  )  /  2 
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ELSE  IF  (CASELEQJ)  THEN 
GETRAD2-0 
ENDIF 
RETURN 
END 
C 

C  sign  function 
C 

INTEGER  FUNCTION  ISGN(C) 

INTEGER  C 
IF  (CNE.O)  THEN 
ISGN-C/ABSCC) 

ELSE 

ISGN-0 

ENDIF 

RETURN 

END 

C 

C  sign  function 
C 

INTEGER  FUNCTION  RSGN(C) 

REAL  C 

IF  CCNE.O)  THEN 
RSGN-C/ABSCC) 

FUSE 

RSGN-0 

ENDIF 

RETURN 

END 

C 

Cthis  routine  employs  a  7-point  numerical  integration  rule  and 
Canalytical  integration  to  evaluate  the  vector  and  scalar  potential 
Cintegrals  over  a  triangular  region. 

C 

SUBROUTINE  NINT7(VX,V1,CVEC,CXSI,CETAJ30T,CPHIJ>1JIC1AREADIST) 
C 

C  VX(3,3)  are  the  vertices  of  the  source  triangle 
C  Vl(3)  are  the  coordinates  of  the  observation  centroid 
C 

COMPLEX  JLCF,CFX,CFN,CF  1  ,CVEC,CXSI,CET A.CPHI 
REAL  XSI(7)ETA(7),WGHT(7) 

REAL  PLKN,Rl(3)tPl(3),RCl(3) 

REAL  DRtMAGNIfALIMITJPOT>AREADIST 
REAL  VX(3,3),V1(3) 

INTEGER  U 
C 

COMMON/CONST/PLKNJI 
COMMON/NUMINT/XSLETA,WGHT 
EXTERNAL  MAGNI 
C 

PARAMETER  (ALIMIT-1D-10) 

C 
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DATA  XSI/  03333333333,  0.05971587,  047014206, 

+  047014206,  0.79742699,  0.10128651,0.10128651/ 

DATA  ETA/  03333333333,  047014206,  0.05971587, 

+  047014206,  0.10128651,  0.79742699,0.10128651/ 

DATA  WGHT/  0325,  0.13239415,  0.13239415, 

+  0.13239415,  0.12593918,  0.12593918,0.12593918/ 

CF-0 
CFX-0 
CFN-0 
DIST  -  0 
DO  2002  1-1,7 
DO  2001  J-13 

R1(J)  -  (V1(J)-VX(J,1))  -  (VX(J3>VX(J,l))*XSia)  - 
+  ( VX( J,3)- VX(  J,  1  ))*ET  A(l) 

2001  CONTINUE 
DR-MAGNICR1) 

IF  (LEQ.l)  THEN 

DIST  -  DR 

ELSE  IF  (DRJLTDIST)  THEN 
DIST  -  DR 
ENDIF 

IF  (DRJLELAUMIT)  THEN 
CF1— JI*KN 
ELSE 

CF1-(EXK-JI*KN»DR>1)/DR 

ENDIF 

CF-CF+CF 1  *W GHTQ) 

CFX-CFX+CFl*WGHTa>XSia) 

CTN-CFN+CF1*WGHTC0*ETA(I) 

2002  CONTINUE 
C 

CVEC  -  CF  *  AREA 
CXSI  -  CFX  *  AREA 
CETA  -  CFN  *  AREA 
C 

CALL  INTGRL(VX,V1,P0T,P1,RC1,AREA) 

CPHI-CVEC+POT 

RETURN 

END 

C 

Cthis  routine  employs  a  7-point  numerical  integration  rule  and 
Canalytical  integration  to  evaluate  the  vector  and  scalar  potential 
Cintegrals  over  a  triangular  region. 

C 

SUBROUTINE  NINT7A(VX,V1,CVEC1,CXSI1,CETA1,P0T,CPHI1,P1,RC1, 

+  AREADIST) 

C 

C  VX(3,3)  are  the  vertices  of  the  source  triangle 
C  Vl(3)  are  the  coordinates  of  the  observation  centroid 
C 

COMPLEX  JI,CF,CFX,CFN,CF  1  ,CVEC  1  ,CXSI  1  ,CET A 1  ,CPHI  1  ,KN  1 
REAL  XSI(7),ETA(7),WGHT(7) 
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REAL  PUCN,R1(3),P1(3),RC1(3) 

REAL  DR^GNIALIMITJXyrAREAJDIST 
REAL  VX(3,3),V1(3) 

INTEGER  U 
C 

COMMON/CONST/PIjCNJI 
00MM0N/00NST1/KN1 
COMMON/NUMINT/XSLETA,WGHT 
EXTERNAL  MAGNI 
C 

PARAMETER  (AUMIT-1D-10) 

C 

CF-0 
CFX-0 
CFN-0 
DIST  -  0 
DO  2002  1-1,7 
DO  2001  J— 1,3 

R1(J)  -  (V1(J)-VX(J,1))  -  (VX(J^>VX(J,l))*XSia)  - 
+  (VX(L3>VX(J,1))*ETA(D 

2001  CONTINUE 
DR-MAGNl(Rl) 

IF  CLEQ.l)  THEN 

DIST  -  DR 

ELSE  IF  (DRLT-DIST)  THEN 
DIST  -  DR 
ENDIF 

IF  Cdrxejujmtt)  THEN 
CF1— JI*KN1 
ELSE 

CFl-(EXP(-JI*KNl*DR)-l)/DR 

ENDIF 

CF-CF+CF 1  * W GI  IT(l) 

CFX-CFX+CF 1  *W GHT(l)*XSI(I) 

CFN-CFN4CFl*WGHT(I>ETACl) 

2002  CONTINUE 
C 

CVEC1  -  CF  *  AREA 
CXSI1  -  CFX  *  AREA 
CETA1  -  CFN  *  AREA 
C 

CALL  INTGRL(VX,V1,P0TIP1,RC1,AREA) 

CPHI1  -  CVEC1  +  POT 
RETURN 
END 
C 

Cthis  routine  employs  a  7-point  numerical  integration  rule  and 
Canalytical  integration  to  evaluate  the  vector  and  scalar  potential 
Cintegrals  over  a  triangular  region. 

C 

SUBROUTINE  NINT7B(VX,V1,CVECK0,CXSIK0,CETAK0^\REAL)IST) 
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C  VX(3J)  are  the  vertices  of  the  source  triangle 
C  Vl(3)  are  the  coordinates  of  the  observation  centroid 
C 

COMPLEX  JI,CF,CFX,CFN,CF  1  ,CVECKO,CXSIKO(CETAKO 
REAL  XSI(7)£TA(7),WGHT(7) 

REAL  PLKNJll(3) 

REAL  DRJ^AGNLAREAJDIST 
REAL  VX(3,3),V1(3) 

INTEGER  U 
C 

COMMON/CONST/PLKNJI 
COMMON/NUMINT/XSLETA.WGHT 
EXTERNAL  MAGNI 
C 

CF-0 
CFX-0 
CFN-0 
DIST  -  0 
DO  2002  1-1,7 
DO  2001  J-13 

R1(J)  -  CVlCO-VXCJ.l))  -  CVXO,2)-VXCJ,l))*XSlCl)  - 
+  CVXCJ,3)-VXCJ,l))*ETACl) 

2001  CONTINUE 
DR-MAGNICR1) 

IF  (LEQ.1)  THEN 

DIST  -  DR 

ELSE  IF  (DRiTDIST)  THEN 
DIST  -  DR 
ENDIF 

CF1-(1+JI*KN*DRXEXPC-JI*KN*DR))/CDR*DR*DR) 

CF  -  CF  +  CF1  *  WGHTCl) 

CFX-  CFX  +  CF1  *  WGHTCl)  *  XSI(I) 

CFN-  CFN  +  CF1  *  WGHTCl)  *  ETACl) 

2002  CONTINUE 
C 

CVECKO  -  CF  *  AREA 
CXSIKO  -  CFX  *  AREA 
CETAKO  -  CFN  *  AREA 
C 

RETURN 

END 

C 

Cthis  routine  employs  a  7-point  numerical  integration  rule  and 
Canalytical  integration  to  evaluate  the  vector  and  scalar  potential 
Cintegrals  over  a  triangular  region. 

C 

SUBROUTINE  NINT7CC  VX,  V 1  .CVECK 1  .CXSIK 1  .CETAK  1  AREA  JOIST) 

C 

C  VX(3,3)  are  the  vertices  of  the  source  triangle 
C  VlC3)  are  the  coordinates  of  the  observation  centroid 
C 

COMPLEX  JLCF.CFX.CFN.CF  1 , CVECK  1  .CXSIK 1  ,CETAK  1 KN 1 
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REAL  XSI(7)£TA(7),WGHT(7) 

REAL  PUCNJU(3) 

REAL  DRJtfAGNLAREAJDIST 
REAL  VX(3,3),Vl(3) 

INTEGER  U 
C 

COMMON/CONST/PUCNJI 
COMMON/CONST1/KN1 
COMMON/NUMINT/XShETA.WGHT 
EXTERNAL  MAGNI 
C 

CF-0 
CFX-0 
CFN-0 
DIST  -  0 
DO  2002  1-1,7 
DO  2001  J-U 

ri(j)  -  (viamai))  -  (vxa^>vxa,i))*xsia)  - 

+  (VX(J.3)-VX(J,1))*ETA(I) 

2001  CONTINUE 
DR-MAGNI(RI) 

IF  (LEQ.l)  THEN 

DIST  -  DR 

ELSE  IF  (DRXT.DIST)  THEN 
DIST  -  DR 
ENDIF 

CF1-<1+JI*KN1*DRXEXP(-JPKN1*DR))/CDR*DR*DR) 

CF  -  CF  +  CF1  *  WGHT(0 

CFX-  CFX  +  CF1  *  WGHTCl)  »  XSI(D 

CFN-  CFN  +  CF1  *  WGHTO)  *  ETA(l) 

2002  CONTINUE 
C 

CVECK1  -  CF  *  AREA 
CXSIK1  -  CFX  *  AREA 
CETAK1  -  CFN  *  AREA 
C 

RETURN 

END 

C 

C  this  subroutine,  with  the  help  of  subroutine  ca,  evaluates 
C  the  1/r  integral  over  a  triangular  region  and  the  line  integral 
C  of  (r  times  the  normal  to  the  triangle  boundary)  over  the 
C  triangle  boundary. 

C 

SUBROUTINE  INTGRL(VX,V1,P0T,P1,RC1,AREA) 

REAL  PI.VD0T ALP ALMZNOT^O J>0T,V AL 1  ,V AL2.AREA 
REAL  VX(3,3),Vl(3),UNl(3),ULl(3),UUl(3),Tl(3),Pl(3),RCl(3) 

INTEGER  U4CSGN^SGN 
COMMON/CONST/PI 
EXTERNAL  RSGN.VDOT 
C 
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POT-O 

C 

C  calculate  unit  normal  -  UNI 
C 

CALL  CROSSl(VX,UNl) 

DO  2001  1-13 
UN  l(l)-UN  l(l)/(2*  AREA) 

2001  CONTINUE 
C 

C  ZNOT  is  the  perpendicular  (to  the  source  triangle)  distance 
C  between  the  source  (vertex  1)  and  observation  triangles 
C 

C  RCl  is  the  nonperpendicular  ("coplanar”  according  to  source  tri) 

C  vector  from  source  (vertex  1)  to  observation  triangles 
C 

C  NOT  USED  call  centroid(vtx,tl) 

DO  2002  K-13 
T1(K>V1(K>VX(K,1) 

2002  CONTINUE 
ZNOT- VDOT(Tl, UNI) 

C 

DO  2003  1-13 
RC1(D-V1(I>ZN0T»UN1CD 
Pl(D-0 

2003  CONTINUE 

ZNOT  -  ABS(ZNOT) 

C 

C  integrate  over  each  edge 
C  ULl  is  unit  edge 

C 

DO  2009  1-13 
C 

J-MOD03M 
DO  2004  K-13 
UL1(K>VX(KJ)-VX(KJ) 

2004  CONTINUE 

CALL  UNIT(UL1,UL1) 

C 

CALL  CROSS2(UL  1  ,UN  1  ,UU  1 ) 

DO  2005  K-13 
Tl(K)-VX(KJ)-RCl(K) 

2005  CONTINUE 
PO-VDOT(Tl,UUl) 

SGN-RSGN(PO) 

PO-ABS(PO) 

DO  2006  K-13 
T1(K)-VX(KJ)-V1(K) 

2006  CONTINUE 
ALP-VD0T(T1,UL1) 

DO  2007  K-13 
Tl00-VX(KJ)-V1(K) 
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2007  CONTINUE 

ALM- VDOT(T  1  ,UL  1 ) 

CALL  CACPO,ZNOTALPALM,VAL1,VAL2) 

POT-POT+VALl*SGN 
DO  2008  K-U 
PlOO-PlOO+UU  1(K>VAL2 

2008  CONTINUE 

2009  CONTINUE 
C 

RETURN 

END 

C 

C - 

C 

SUBROUTINE  CACP0,DALPALM,VALA,VALL) 

REAL  POLUIOJU>JRMALPALMA1INTOP30T 
REAL  LPJMVALA,VALL^LGTRM,ARGTNP^RGTNM 
C 

C  MIN  depends  on  machine  precision 
C  —use  ID-5  for  32  bit  reals 
C  -can  use  ID-8  for  64  bit  reals 
C 

PARAMETER  (MIN-1D-5) 

C 

RO  -  D**2  +  P0**2 

RP  -  SQRTC  RO  +  ALP**2) 

RM  -  SQRTC  RO  +  ALM**2) 

TOP  -  RP+ALP 
BOT  -  RM+ALM 

IF  CALP1T.OAND.TOPL.TADN)  TOP  -  R0/ABSCALP)/2 
IF  CALMLT.OANDLOTLTADN)  BOT  -  R0/ABSCALM)/2 
IF  CALPLT.OANDALMLT.OAND.TOPLTADNANDBOTLTADN)  THEN 
ALGTRM  -  LOGCALM/ALP) 

ELSE 

ALGTRM  -  LOGCTOP/BOT) 

ENDEF 

IF  CD.GT.0)  THEN 
ARGTNP-PO*ALP/CR(H-D*RP) 

argtnm-po*alm/Cro+d*rm) 

vala-po*algtrm-d*(atanCargtnp)-atanCargtnm)) 

ELSE 

VALA-PO* ALGTRM 
END  IF 

VALL^R0*ALGTRM+ALP*RP-ALM*RM)/2 

C 

RETURN 

END 

C 

C  save  matrix 
C 

SUBROUTINE  SAFECCZJUNKNSJCUNKNSAfUNKNSP) 

INTEGER  JUNKNSJCUNKNSJDJNKNSP 
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COMPLEX  CZ(2*JUNKNS+KUNKNS+NUNKNS) 

IF  (PEQ.l)  THEN 
REWINIX22) 

REWIND(26) 

DO  10  J-1JUNKNS 
REAJX22)  (CZCDJ-IJUNKNS) 

READ(26)  (C2CD J-JUNKNS+ 1 JUNKNS+J) 

WRTTEC57)  (CZCDJ-UUNKNS+J) 

10  CONTINUE 
CLOSEC22) 

CLOSE(26) 

ELSE  IF  (PEQ.2)  THEN 
REWINIX23) 

REWIND(27) 

REWINIX31) 

DO  11  J-1JK.UNKNS 
REAIX23)  (CZ(I)J-1  rJUNKNS) 

READC27)  (CZa)J-JUNKNS+U*JUNKNS) 

REAIX31)  (CZG)J-2*JUNKNS+1^*JUNKNS+J) 

WRITE(57)  (CZO),I-U*JUNKNS+J) 

11  CONTINUE 
CLOSE(23) 

CLOSE(27) 

CLOSEC31) 

ELSE 

REWINIX24) 

REWINIX28) 

REWINIX36) 

DO  12  J-1.NUNKNS 
READC24)  (CZCOJ-UUNKNS) 

READ(28)  (CZ(I)J-JUNKNSfU*JUNKNS) 

DO  20  L-1JCUNKNS 
CZ(2*JUNKNS+L)  -  0 

20  CONTINUE 

READC36)  (CZ(I)3-2*JUNKNS+KUNKNS+U*JUNKNS+KUNKNS+J) 

WRTTE(57)  (CZO) J[- 1 ,2* JUNKN S+KUNKN S+ J ) 

12  CONTINUE 
CLOSEC24) 

CLOSE(28) 

CLOSE(36) 

ENDIF 

C 

RETURN 

END 
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RADAR  CROSS  SECTION  MEASUREMENTS  AND  PREDICTIONS 


E.l  Introduction 

This  appendix  contains  the  radar  cross  section  (RCS)  plots  discussed  in 
Chapter  5.  The  graphs  of  the  experimental  RCS  data  generated  from  the  experimental 
RCS  measurements  performed  at  the  MIT  Lincoln  Laboratory  Group  95  RCS  Mea¬ 
surement  Facility  are  contained  in  Section  E.2.  The  graphs  of  the  theoretical  RCS 
predictions  generated  from  the  EFIE  series  of  computer  programs  discussed  in  Chapter 
3  are  contained  in  Section  3.3. 

E.2  Experimental  Radar  Cross  Section  Measurements 

This  section  contains  the  graphs  of  the  experimental  RCS  data  generated 
from  the  experimental  RCS  measurements  performed  at  the  MIT  Lincoln  Laboratory 
Group  95  RCS  Measurement  Facility.  Each  figure  contains  two  RCS  plots.  The  top  plot 
in  each  figure  is  the  horizontally  transmitted  and  horizontally  received  monostatic  far- 
field  RCS  ( Ohh )  versus  angle.  Horizontally  transmitted  means  the  electric  field  of  the 
incident  wave  is  polarized  parallel  to  the  edge  of  the  square  aluminum  plate  when  the 
incident  wave  is  travelling  in  the  plane  of  the  plate  and  normal  to  an  edge.  The  bottom 
plot  in  each  figure  is  the  vertically  transmitted  and  vertically  received  monostatic  far- 
field  RCS  (ovv)  versus  angle.  Therefore,  each  figure  contains  the  co-polarized  RCS 
plots  for  two  orthogonally  polarized  incident  electric  fields. 


Figure  E.l.  Experimental  monostatic  3.0  GHz  RCS  plots  for  uncoated  10cm  by  10cm 
square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom)  crvv  versus 
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Figure  E.2.  Experimental  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FDS  coated  10cm 
by  10cm  square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom)  ovv 
versus  angle 
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Figure  E.3.  Experimental  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  SF  6.0  coated 
10cm  by  10cm  square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom) 
ovv  versus  angle 
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Figure  E.4.  Experimental  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FGM  40  coated 
10cm  by  10cm  square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom) 
ovv  versus  angle 
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igure  E.6.  Experimental  monostatic  6.0  GHz  RCS  plots  for  Eccosorb  FDS  coated  10cm 
by  10cm  square  aluminum  plate:  (top)  ahh  versus  angle  and  (bottom)  avv 
versus  angle 
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Figure  E.8.  Experimental  monostatic  6.0  GHz  RCS  plots  for  Eccosorb  FGM  40  coated 
10cm  by  10cm  square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom) 
<7VV  versus  angle 
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Figure  E.9.  Experimental  monostatic  3.0  GHz  RCS  plots  for  uncoated  15cm  by  15cm 
square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom)  ovv  versus 
angle 
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Figure  E.10.  Experimental  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FDS  coated  15cm 
by  15cm  square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom)  ovv 
versus  angle 
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igure  E.ll.  Experimental  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  SF  6.0  coated 
15cm  by  15cm  square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom) 
ovv  versus  angle 
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Figure  E.12.  Experimental  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FGM  40  coated 
15cm  by  15cm  square  aluminum  plate:  (top)  chh  versus  angle  and  (bottom) 
ovv  versus  angle 
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Figure  E.14.  Experimental  monostatic  6.0  GHz  RCS  plots  for  Eccosorb  FDS  coated  15cm 
by  15cm  square  aluminum  plate:  (top)  Ohh  versus  angle  and  (bottom)  ovv 
versus  angle 
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Figure  E.15.  Experimental  monostatic  6.0  GHz  RCS  plots  for  Eccosorb  SF  6.0  coated 
15cm  by  15cm  square  aluminum  plate:  (top)  ohh  versus  angle  and  (bottom) 
&VV  versus  angle 


Figure  E.16.  Experimental  monostatic  6.0  GHz  RCS  plots  for  Eccosorb  FGM  40  coated 
15cm  by  15cm  square  aluminum  plate:  (top)  a^h  versus  angle  and  (bottom) 
avv  versus  angle 
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E.3  Theoretical  Radar  Cross  Section  Predictions 

This  section  contains  the  graphs  of  the  theoretical  RCS  predictions  discussed 
in  Chapters  3  and  5.  They  were  generated  from  the  EFIE  series  of  computer  programs. 
Each  figure  contains  two  RCS  plots.  The  top  plot  in  each  figure  is  the  horizontally 
transmitted  and  horizontally  received  monostatic  fax-field  RCS  (ohh)  versus  angle.  Hor¬ 
izontally  transmitted  means  the  electric  field  of  the  incident  wave  is  polarized  parallel 
to  the  edge  of  the  square  plate  when  the  incident  wave  is  travelling  in  the  plane  of  the 
plate  and  normal  to  an  edge.  The  bottom  plot  in  each  figure  is  the  vertically  trans¬ 
mitted  and  vertically  received  monostatic  far-field  RCS  (ovv)  versus  angle.  Therefore, 
each  figure  contains  the  co-polarized  RCS  plots  for  two  orthogonally  polarized  incident 
electric  fields. 
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Figure  E.18.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FDS  coated  10cm 
by  10cm  square  plate:  (top)  versus  angle  and  (bottom)  cvv  versus  angle 
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Figure  E.19.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  SF  6.0  coated  10cm 
by  10cm  square  plate:  (top)  Ohh  versus  angle  and  (bottom)  ouv  versus  angle 
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Figure  E.20.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  SF  6.0  coated  10cm 
by  10cm  square  plate:  (top)  ohk  versus  angle  and  (bottom)  <r„„  versus  angle 
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Figure  E.21.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  SF  6.0  coated  10cm 
by  10cm  square  plate:  (top)  cr versus  angle  and  (bottom)  ovv  versus  angle 
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Figure  E.22.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  SF  6.0  coated  10cm 
by  10cm  square  plate:  (top)  Ohh  versus  angle  and  (bottom)  ovv  versus  angle 


Figure  E.23.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  SF  6.0  coated  10cm 
by  10cm  square  plate:  (top)  ahh  versus  angle  and  (bottom)  avv  versus  angle 
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Figure  E.25.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FGM  40  coated 
10cm  by  10cm  square  plate:  (top)  Of versus  angle  and  (bottom)  ovv  versus 
angle  (2  of  5) 
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Figure  E.26.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FGM  40  coated 
10cm  by  10cm  square  plate:  (top)  <jhh  versus  angle  and  (bottom)  ovv  versus 
angle  (3  of  5) 
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Figure  E.27.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FGM  40  coated 
10cm  by  10cm  square  plate:  (top)  Ohh  versus  angle  and  (bottom)  crvv  versus 
angle  (4  of  5) 
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Figure  E.28.  Theoretical  monostatic  3.0  GHz  RCS  plots  for  Eccosorb  FGM  40  coated 
10cm  by  10cm  square  plate:  (top)  Ohh  versus  angle  and  (bottom)  ovv  versus 
angle  (5  of  5) 


